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20.  ABSTRACT  (Continue  on  reverse  aide  If  necessary  and  Identify  by  block  number) 

The  LQ-10  Infrared  Laser  Window  Program  was  initiated  at  AFCRL 
(now  RADC/DET)  in  1971  to  develop  a  mechanically  superior,  highly  trans¬ 
mitting  optical  window  for  CO2  and  chemical  lasers  to  be  used  by  ..the  Air 
Force  for  military  applications.  From  the  earliest  stages  of  that  program 
it  became  evident  that  the  principal  failure  mechanism  of  the  window  would 
be  thermal  lensing,  that  is,  the  distorting  and  defocusing  of  the  laser  beam 
as  it  propagated  through  the  solid.  For  this  reason  analytical  tools  were 
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20.  Abstract  (Continued) 

developed  to  predict  the  extent  of  this  lensing  in  various  candidate  materials 
under  a  variety  of  conditions.  This  work  contributed  to  selection  of  appro¬ 
priate  materials,  as  well-a^to  design  of  geometrical  configurations,  in  which 
the  lensing  could  be  reducedT*To  quantify  the  effects  of  thermal  lensing,  an 
efficient  computer  program  package  was  developed  and  programmed  to  run  on 
a  CDC6600  computer.  The  package  was  written  to  handle  Gaussian-shaped 
beams  incident  on  either  a  thin  disc-  or  annular -shaped  cylindrical  window. 
Three  coupled  programs  make  up  the  package:  TEMP5,  which  solves  the  full 
heat  transport  equation  within  the  window  for  any  given  set  of  initial  and 
boundary  conditions  on  each  surface;  TIKIRK,  which  solves  the  vector 
Kirchhoff  diffraction  integrals  for  the  beam  transmitted  to  the  far  field;  and 
DISPLAY,  which  plots  these  temperatures  and/or  intensities  in  a  variety  of 
ways,  including  three-dimensional  perspertive  views Volume  I  of  this  report 
lays  the  theoretical  foundations  underlying  these  progranSff  and  presents 
graphical  results  for  two  model  problems  using  disc-  and  annular -shaped 
windows.  Volume  II  is  a  "user's  manual."  It  describes  how  each  program 
functions,  enumerates  the  constituent  subroutines  and  subprograms,  gives 
complete  Fortran  listings,  and  even  provides  typical  detailed  commands  to 
initiate  and  run  the  programs  in  both  the  Intercom  and  Batch  modes  of  opera¬ 
tion.  Results  of  this  work  should  substantially  aid  engineers  in  planning  con¬ 
figurations  and  specifications  for  current  and  conceptual  systems. 
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7.  INTRODUCTION 

In  Volume  II  we  will  give  a  detailed  documentation  of  the  Fortran  programs 
TEMP5,  TIKIRK  and  DISPLAY,  explaining  how  to  implement  them.  This  will 
include:  listings  of  main  and  ancillary  programs  and  subroutines,  plus  an  explana¬ 
tion  of  their  functions;  derivations  of  how  the  heat,  boundary  condition  (BC)  and 
diffraction  intensity  equations  are  transformed  into  algorithms  solvable  by  the 
computer;  flow  charts;  and,  glossaries  of  variables  for  some  of  the  more  impor¬ 
tant  subroutines.  Since  programs  TEMP5  and  TIKIRK  have  been  coded  to  permit 
systems  operation  under  both  an  Intercom  and  Batch  mode,  we  will  list  typical 
interactive  commands  and  card  deck  setups  which  control  these  two  types  of 
operation.  Because  program  DISPLAY  can  function  only  in  the  Batch  mode,  we 
will  list  typical  card  deck  setups  for  its  operation. 

Much  of  the  details  presented  in  Volume  II  appeared  originally  in  the  following 
unpublished  reports  from  Parke  Mathematical  Laboratories,  Inc.,  Carlisle, 

Mass. : 

(i)  N.  G.  Parke,  HI,  "Program  TEMP5, "  Sci.  Rpt.  No.  1  (April  1973);  also 
documented  as  AFCRL  Rpt  TR-73-0039  by  the  same  author. 
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(ii)  T.B.  Barrett,  "An  Interactive  Set  of  Programs  Using  Program  TEMP5 
for  the  Determination  of  Calorimetric  Material  Parameters  from  Experimental 
Data  on  Cylindrical  IR  Laser  Window  Materials,"  Tech.  Memo.  No.  16  (Oct. 

1973) . 

(iii)  T.B.  Barrett,  "TIKIRK  Program, "  PML  Rpt.  110,  with  revision  (April 

1974) . 

(iv)  T.B.  Barrett,  "GETDATA  Subroutine,"  PML  Rpt.  Ill  (May  1974). 

(v)  T.B.  Barrett,  "DISPLAY  Program, "  PML  Rpt.  116  (May  1974). 

8.  TEMP5  PROGRAM 
8.1  Introductory  Remarks 

Initial  attempts  to  code  the  numerical  solution  to  the  heat  and  BC  equations 
used  the  Crank-Nicolson  method. 11  This  procedure  leads  to  a  pentagonal  system 
of  linear  difference  equations,  which  are  usually  solved  by  an  appropriate  iteration 
technique. 12  However,  if  the  edges  of  the  "net"  of  points  -  at  which  the  tempera¬ 
ture  is  to  be  evaluated  -  is  situated  at  the  boundaries,  three  problems  arise: 

(1)  Iteration  techniques  must  be  used. 

(2)  Symmetry  dictates  that  along  the  window  axis  (p  =  0)  there  be  no  heat  flow 
across  the  window  center,  that  is,  3u/3p  =  0.  Under  this  condition,  however,  the 
term  (l/p)(3u/3p)  which  occurs  in  the  partial  differential  equation  would  be  inde¬ 
terminate. 

(3)  A  satisfactory  finite -difference  analog  must  be  found  for  the  general  BC's, 
which  have  the  form: 


3u/3v  +  hu  =  g 


(38) 


[cf,  Eq.  (32)  of  Volume  I] . 

These  difficulties  were  resolved  as  follows: 

(1)  The  Crank-Nicolson  method  was  replaced  by  the  Implicit  Alternating  Dif¬ 
ference  (LAD)  method. 11  This  procedure  reduces  the  algebraic  problem  at  each 
stage  to  the  inversion  of  a  tridiagonal  matrix.  The  Thomas  algorithm  is  employed 
and  iteration  is  avoided.  The  cost  of  this  approach  for  a  problem  involving  two 
space  variables  is  a  two -time -level  pair  of  difference  equations. 


11.  Carnahan,  B. ,  Luther,  H.A.,  and  Wilkes,  J.O.  (1969)  Applied  Numerical 

Methods.  Wiley  and  Sons,  Inc. ,  New  York. 

12.  Parke,  N.  G. ,  III  (1971)  Technical  Memorandum  No,  4  Parke  Mathematical 

Laboratories,  Inc.,  Carlisle,  Massachusetts,  unpublished. 
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(2)  By  applying  L1  Hospital's  rule  along  the  cylinder  axis  there  results: 

Lim(p  *)(9u/9p)  =  9^u/9p^. 
p-  o 

(3)  A  suitable  finite  difference  analog  for  Eq.  (38)  is  established  by  shifting 
the  "net"  half  an  increment  off  the  boundaries. 

To  see  how  the  finite  difference  method  is  applied,  consider  a  transverse 
cross-sectional  cut  through  the  window's  center  (that  is,  the  plane  of  the  cross- 
section  is  perpendicular  to  the  window's  faces).  The  borders  of  the  resulting 
rectangular  cross-section  are  parallel  to  the  p  and  £  axes  (see  Figure  1,  Volume 
I).  Because  of  the  rotational  symmetry,  only  one  half  of  the  section  need  be 
shown.  The  geometry  of  the  choice  of  net  points  superimposed  on  this  cut  is  indi¬ 
cated  in  Figure  19.  The  window  faces  occur  at  the  lines  marked  ?  =  ?1(  and 
£  =  the  inner  and  outer  cylindrical  surfaces  are  denoted  by  the  lines  marked 
p  =  p  and  1,  respectively.  The  p,  £  coordinates  of  each  net  point  are  represented 
by  the  indices  i,  j,  respectively,  with  i  running  from  0  to  M+l,  and,  j  running 
from  0  to  N+l.  That  is. 


<\  ‘  Cl  +  ('  *  j) 


i  =  0,  1 . M+l 


j  =  0.  1,  ....  N+l 


These  coordinates  are  measured  relative  to  the  surfaces  p^  and  gp  respectively. 
All  of  the  net  points  beaming  one  or  both  of  the  indices  0,  M+l  and  N+l  fall  outside 
of  the  window  itself  and  are  considered  to  be  "fictitious"  or  "corner"  points. 

8.2  Finite  Difference  Analogs  for  the  General  BC’s 

It  is  now  possible  to  write  the  finite  difference  analog  of  the  general  BC's  for 
the  shifted  net.  First,  we  note  that  the  derivative  term  9u/9r  in  Eq.  (38)  differs 
for  each  surface  due  to  the  sign  conventions  chosen  for  p  and  f .  For  example,  at 
the  surfaces  p  =  p  ^  and  p  =  1,  the  term  du/dv  becomes  -  and  +  9u/9p,  respectively; 
while  at  the  surfaces  ?  =  and  5  =  ?2  it  becomes  -  and  +  9u/9f,  respectively. 
Thus,  the  finite  difference  analogs  of  the  BC's  become: 


u  .  +  u.  . 

+  — +1  =  gj  at  p  =  p  x 


UM+!,  j  -  UM,  j  ,h^UM+lJ  +  UM,j  .  ^  atp  =1 
"P 


for  j  =  1,  2,  . . . ,  N-l 


. 


CALCULATING 


0  =  fictitious  points 


•  =  net  points 


+  =  unused  corner  points 


Figure  19.  Geometry  of  Finite  Difference  Net.  The  boundaries  are  straddled  by 
a  net  point  and  a  fictitious  point 


u-  -  u.  ,  u.  +  u.  . 

1)0  h  1  +  hQ  —  ° _ ^ _ = 

A?  32 


g3  at?=?1 


(42) 


%N+i2',:kN=g4 atE.c 


u.  , ,  +  u. 


A? 


(43) 


When  these  are  solved  for  the  "fictitious"  points,  one  obtains 
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(46) 


(47) 


We  saw  in  Section  3.3,  Volume  I,  that  all  BC's  of  practical  interest  can  be 
represented  by  appropriate  choices  of  the  g^  and  lu.  With  this  capability  in  the 
above  analogs,  the  resulting  computer  program  becomes  very  flexible. 


8.3  Finite  Difference  Equations  for  I.A.D.  Method 

Having  set  up  the  "net,"  we  shall  now  use  the  I.A.D.  method  on  the  parabolic 
heat  equation  having  the  general  form  [  cf  Eq.  (29),  Volume  I]  : 

9u/9 r  =  92u/9p2  +  p  ^9u/9p  +  92u/9£2  +  q  t  (48) 


where 


In  the  first  finite  difference  equation  set,  the  analog  of  the  partial  derivatives 
with  respect  to  p  will  be  written  at  the  new  time  level  n  +  1,  and  the  analog  of  the 
£  -derivative  written  at  the  old  level  n.  Here,  n  is  even  starting  with  n  =  0.  To 
complete  the  cycle,  the  second  finite  difference  equation  set  is  written  at  the  new 
time  level  n  +  2  for  derivatives  in  the  £  direction.  In  other  words,  the  equations 
are  now  implicit  in  £  -direction  and  explicit  in  the  p -direction.  Partial  derivatives 
with  respect  to  p  are  written  in  terms  of  values  of  u  at  the,  now  old,  time  level 
n  +  1.  These  "intermediate"  values  of  u  are  sometimes  designated  u*  (meaning  a 

correction).  They  are  not  accurate  representations  of  the  u.  This  point  is  dis- 

13 

cussed  in  detail  by  von  Rosenberg. 

Our  analogs  for  the  various  partial  derivatives  take  the  forms: 


), 


i,  j.n+1 


j  i  -  2u. 
n+1  i 


(49) 


(1  u  \  -  Ui+l,j,n+l  ~  ui-l,  j,  n+1 
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(A?)2 
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=  Ui,  j,n+l  "  \  j,  n 

(At) 


(50) 


(51) 


(52) 


and 

q(Pp  ?j)  =  \  j  ■  <53) 

The  subscripts  i,  j  merely  represent  generalized  indices  and  extend  over  the 
generalized  ranges:  i  =  1,  2, . . . ,  M  and  j  =  1,  2, . . . ,  N.  After  substitution,  the 
first  set  of  I.  A.D.  equations  are: 


13.  von  Rosenberg,  D.  U.  (1969)  Methods  for  the  Numerical  Solution  of  Partial 

Differential  Equations,  American-Elsevier  Publishing  Co. ,  Inc. ,  New  York. 
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ui+l,j,n+l  "  2ui,  j,n+l  +  ui-l,  j,  n+1  ui+l,j,n+l  ui-l,  j,  n+1 


2p  .(Ap) 


+  ui,j+l,  n  ~  2ui,  j,  n  +  ui,j-l,n  ^  _  ui,j,n+l  “  Ui,  j,  n 

(A?)2  l'^  At 


The  second  set.  of  I.A.D,  equations  is: 


Ui+1,  j,  n+1  "  2ui,  j,  n+1  +  Ui-1,  j,  n+1  Ui+1,  j,  n+1  ui-l,  j,  n+1 
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,  j+1, n+2  i,  j,  n+2  i,j-l,  n+2  _  i,  j,  n+2  i,  j, n+1 


It  is  convenient  to  introduce  the  parameters 


-  At  „  _  At 

1  n  »  M  J 

(Ap)2  (A?)" 


Observe  that  Eqs.  (54)  are  tridiagonal,  containing  the  unknowns 


Ui+1, 3.  n+1  '  UiJ,n+l  ’  ui-l,j,n+l 


and  can  be  solved  by  the  Thomas  algorithm.  Likewise,  Eqs.  (55)  are  tridiagonal, 
containing  the  unknowns 


Ui.  j+1,  n+2  '  Ui,  j,  n+2  *  ui,j-l,n+2 


and  can  likewise  be  solved  by  the  Thomas  algorithm. 

Before  continuing,  let  us  take  up  the  mathematics  of  the  Thomas  algorithm 
(which  will  be  incorporated  in  the  subroutine  TRIDAG,  to  be  explained  later). 


8.4  The  Solution  of  a  Tridiagonal  System  of  Equations 


The  whole  purpose  of  the  implicit-alternating  direction  method  is  to  reduce 
the  number  of  unknown  variables  at  the  "next"  time  level  to  three  in  any  one  equa¬ 
tion.  Such  a  set  of  equations  is  called  a  tridiagonal  system  that  has  a  relatively 
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As  a  result 
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vt  =  Ti  ~ 


Ci  vi+l 


;  i  =  N-l.N-2,  ....  1 


where  the  0's  and  7's  are  determined  by  the  recursion  formulae 


01  =  bl  -  =  dl/^l 
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i  l-l 


ft=b  .-h-i-L  i  =  2,  3 . N 
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i  =  2,  3,  . . . ,  N  . 


8.5  Pulling  the  I.A.D.  Equations  into  Tridiagonal  Form 

Using  Eqs.  (56),  the  first  I.  A.  D.  set  becomes,  from  Eq.  (54) 


2u;  ,  +  u.  ,  ■  .]  + 


X  •  Ap 


i+1,  j,  n+1  i.j.n+1  2(p  t  +  (i  -  1/2)  •  Ap) 


fui+l,  j,  n+1  ‘  Ui-1,  j,  n+l]  =  di  +  Ui,  j,  n+1 


Writing  in  the  standard  form 


blUl,  3,  n+1  +  C1U2,  j,  n+1  =  dl 


aiui-l,  3,  n+1  +  biUi,  3.  n+1  +  ciUi+l,  3,  n+1  =  di 


+  b- -U, 


M  M-l,  j,  n+1  M  M,  j  ,  n+1  “M 


we  find  that,  in  general,  that  is,  for  i  *  1,  i  *  M 
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We  notice  that  from  Eq.  (44) 


Hence,  we  have  to  change  according  to 


We  also  have  to  change 


Similarly  we  have  to  change  b. 


using  Eq.  (45).  Likewise 


It  should  be  observed  that  as  long  as  j  #  1  or  j  =  N,  the  d's  require  no  further 
modification  because  their  computation  involves  only  "net"  points  at  time  level  n. 
However,  when  j  =  1,  the  fictitious  points  u.  Q  n  are  involved.  Also,  when  j  =  N, 


the  fictitious  points  u.  N+1  n  are  involved.  The  simplest  way  to  handle  this  is 
to  "border"  the  u.  .  R  array  by  computing  ui  o  n  with  Eq.  (46)  and  u.,  N+1>  n 
with  Eq.  (47)  just  before  computing  the  first  sets  of  a,  b,  c,  d  for  the  £ -explicit, 
p -implicit  I.  A.  D.  set. 

To  summarize,  in  step  I  we  modify  b^,  d^  bM>  dM  having  extended  u.^n 
with  Eqs.  (46)  and  (47). 

Now  let  us  turn  to  step  II  of  the  I.  A.  D.  method.  We  begin  with  Eqs.  (55)  and 
write 


^[ui,  j+l,  n+2  “  2ui,  j,  n+2  +  Ui,  j-1,  n+21  '  dj  +  Ui,  j,  n+2 


-  At  •  .  (75) 


These  equations  are  to  be  written  in  the  standard  form: 
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aN  ui,  N-l,  n+2  +  bN-l  ui,  N,  n+2  =  dN  1 
We  find  again  that,  in  general,  that  is,  for  j  *  1  or  j  *  N 
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Using  Eq.  (46)  for  u.  Q  n+2,  we  change  b:  to 


We  also  change  dj  to 
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Similarly  we  use  Eq.  (47)  for  n+2  to  change  b^_ ^  to 


(79) 


bN  bN  +  CN 


2  -  h4  •  Ag 
2  +  h4  •  A? 


(80) 


and 
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Again,  as  long  as  i  *  1,  ori^M,  the  d's  require  no  further  modification  because 
their  computation  involves  only  "net"  points  at  time  level  n  +  1.  However,  when 
i  =  1,  the  fictitious  points  uq  ..  n+1  are  involved.  Also,  when  i  =  M,  the  fictitious 
points  uM+1  ■  n+1  are  involved.  The  simplest  way  to  handle  this  is  to  "border" 
the  u*  =  m  /  ^+1  array  by  computing  u^  ^  n+1  with  Eq.  (44)  and  uM+1^  n+1  with 
Eq.  (45)  before  starting  on  the  second  half  of  the  I.  A.  D.  set.  We  shall  keep  the 
0,  2,  . . . ,  n  even  level  u's  in  an  array  U(I,  J).  We  shall  keep  the  1,  3,  ...  n  odd  level 
u's  in  an  array  USTAR(I,  J). 

8.6  The  Time  Coordinate 

The  time  coordinate  Tn  is  constructed  so  as  to  be  controlled  by  an  integer  n 
and  an  increment  At  in  a  special  way.  Because  we  are  using  the  I.A.D.  method, 
the  "net"  values  of  temperature  are  only  valid  when  u  is  an  even  integer.  In 
addition,  it  should  be  noted  that  At  may  be  changed  before  entering  a  new  cycle 
involving  an  alternating  difference  pair  of  finite  difference  equations. 

Initially,  temperature  varies  relatively  rapidly  with  time.  This  means  that 
rather  closely  spaced  time  units  should  be  selected  at  which  to  calculate  the  tem¬ 
perature.  Later,  as  the  temperature  approaches  its  steady  state  value,  its  change 
is  less  rapid  so  that  it  seems  reasonable,  especially  from  the  viewpoint  of  con¬ 
serving  computer  time,  to  calculate  temperatures  at  much  larger  intervals  of  time. 
This  can  be  accomplished  by  allowing  the  time  interval  At  at  a  particular  choice 
of  n  to  increase  according  to  the  scheme: 


At  (n) 


Wno 


At, 


(82) 
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At  is  some  arbitrarily-selected  initial  value  of  At,  n  is  a  positive  even  integer 
and  n  is  some  arbitrary  positive  integer,  called  the  "doubling  count  number,' 
because  when  n  reaches  nQ,  At  will  double  to  2Atq.  Making  nQ  very  large  is 
equivalent  to  holding  AT<n)  =  Atq. 

Meanwhile,  the  time  coordinate  Tn  is  formed  according  to  the  prescription: 
n  n  k/n 

^  £  AtOO  •  2ATo  £  2  '  °  ,83: 

k=o  k=o 


This  prescription  will  hold  up  to 


The  actual  value  of  nT  will  be  determined  by  the  parameter 

Jj 


in  which  k  is  incremented  in  steps  of  2  up  to  n. 
the  limit  n  =  nL- 

n  ,  a  positive  integer  which  is  inputted  at  the  start  of  the  program.  The  inte¬ 
ger  nL  will  be  equal  to  nmaj£  -  2  if  nmax  is  even,  or,  to  nmax  . max 

At  n  =  n^,  the  increment  is  designated  by  AT(n^)  and  the  time  by  Tn^* 

-nI>o  (84) 


That  is: 


AT<nL) 


At, 
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k=o 


For  times  greater  than  Tn  ,  corresponding  to  n  >  nL,  the  increment  will 
remain  fixed  at  AT(n^),  whereas  the  time  will  be  given  by: 

T  =  t  +  At(iit  )  •  (n  -  n.  )/2  .  (86) 

n  n^  Jj  Jj 

The  time  rn  will  keep  increasing  by  these  fixed  increments  until  it  reaches  some 
arbitrarily-fixed  upper  limit  Tmax,  at  which  point  the  program  initiates  a  termina 
tion  procedure. 

By  virtue  of  another  time -control  parameter,  the  program  also  makes  pro¬ 
vision  for  turning  the  source  off  and  then  determining  the  temperature  changes  as 
the  window  cools  off.  This  occurs  at  t  =  t where,  of  course,  tq^  must  be 

max 

Should  T  ,  as  determined  by  Eq.  (86),  become  greater  thanTQff  at  the  start 
of  a  time  loop,  and  if  T  ff  <  Tmax,  then  the  time -incrementing  procedure  is 
reinitiated.  On  the  other  hand,  should  Tn  exceed  rQ^  at  the  start  of  a  time  loop, 
and  if  TQff  =  Tmax,  then  the  subroutine  CYLTMP  (to  be  described  later)  does  not 
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continue  with  the  calculation,  but  returns  control  to  the  main  program.  Thus, 
the  actual  maximum  time  value  will  usually  be  slightly  less  than  t if  the  window 
is  being  irradiated,  and  will  be  slightly  less  than  T;max  if  the  window  is  experienc¬ 
ing  a  cooling  phase. 

From  the  analysis  above,  we  see  that,  apart  from  the  running  index  n, 

usually  4,  or,  at  most  5,  parameters  are  required  to  control  the  time  coordinate, 

viz  n  n  At  .  t  and  «■  The  time  interval  At  can  be  enlarged  by 

’  o’  max’  J  o’  'max  off 

increasing  Atc  or  nraax,  or  by  decreasing  no. 

8.7  The  Program  and  Principal  Subroutines 

The  coding  jitmessary  to  input  all  of  the  data,  to  carry  out  all  of  the  required 
calculations,  including  the  I.  A.  D.  prescriptions,  and  finally,  to  print  out  the 
results  constitutes  a  major  programmed  package,  named  the  TLMP5  program. 
This  package  consists  of  eight  principal  subroutines  called  into  execution  by  one 
very  short  main  program.  This  latter  program  has  also  been  designated  as 
TEMPS.  However,  whenever  we  use  the  term  "TEMP5  program"  throughout  this 
report  we  will  always  mean  the  collective  "packag  rather  than  this  one  main 
program,  unless  stated  otherwise. 

The  TEMP5  program  is  composed  of  the  following: 

(1)  TEMP5  -  a  very  short  program  whose  principal  purpose  is  to  call  the  2 
principal  subroutines  DATINIT  and  CYLTMP. 

(2)  DATINIT  -  a  subroutine  which  inputs  all  required  parameters  necessary 
for  program  operation  by  a  call  to  subroutine  GETDATA.  It  initializes  the  prin¬ 
cipal  arrays  used  by  subroutine  CYLTMP.  It  also  calls  subroutine  GAUSS. 

te)  CYLTMP  -  the  "core"  subroutine  of  the  TEMP5  program.  It  calculates 
the  temperature  u  according  to  the  I.  A.  D.  method  using  both  subroutines  TRIDAG 
and  SPLNI  and  then  the  related  integrals  FI  and  F2  again  using  SPLNI.  It  stores 
u,  FI  and  F2  in  unformatted  form  on  a  file  named  TAPE3.  These  temperatures 
(u)  are  calculated  at  the  RHO,  ZED  lattice  points  and  are  designated  by  the  vari¬ 
able  name  U(I,  J), 

(4)  TRIDAG  -  the  subroutine  which  implements  the  Thomas  algorithms  for 
solving  a  system  of  simultaneous  linear  equations  having  a  tridiagonal  coefficient 
matrix. 

(5)  GAUSS  -  a  subroutine  for  loading  the  volume  heating  source  term  Q  with  a 
truncated  Gaussian  distribution  into  the  program. 

(6)  SPLNI  -  The  subroutine  which  finds  the  third  order  spline  function  for  a 
function  y(x)  given  at  the  points  (X(I),  Y(I)).  It  is  used  both  for  integrating  the  FI 
and  F2  functions  as  well  as  for  interpolating  values  of  u  at  the  RFIN,  ZFIN  lattice 
points,  which  occur  halfway  between  the  RHO,  ZED  lattice  points.  These  inter¬ 
polated  temperatures  are  designated  by  the  variable  name  UFIN(I,  J).  They  enable 


73 


us  to  calculate  temperatures  out  to  the  window's  edges.  SPLNI,  which  follows 
Chapter  8  of  Ralston  and  Wilf,  14  is  a  modification  of  the  IBM  standard  Scientific 
Subroutine  Package  subroutine  SPLIE. 

(7)  GETDATA  -  obtains  data  from  the  operator.  It  can  be  used  as  a  universal 
inputting  subroutine  for  either  the  Batch  or  Intercom  modes  of  operation  of  any 
program  requiring  input  data.  (More  will  be  said  about  these  two  modes  later.) 
However,  it  was  written  mainly  for  Intercom  operation.  It  also  calls  on  subrou¬ 
tines  SSWTCH  and  RJUST. 

(8)  SSWTCH  -  reads  in  the  first  three  data  values  (and  prints  out  appropriate 
messages)  for  GETDATA  control.  (It  should  be  noted  that  SSWTCH  is  not  the 
same  as  the  CDC  Fortran  subroutine  bearing  the  same  name.) 


(9)  RJUST  -  right  adjusts  all  numerical  values. 

The  TEMP5  program  has  been  coded  to  permit  operation  under  either  Batch 
processing  or  Intercom.  The  latter  mode  permits  relatively  easy  interactive  use, 
as  implemented  under  CDC  Scope  3.4  with  the  CDC6600. 

The  complete  Fortran  listings  for  each  of  the  above  are  given  in- Appendix  A. 

8.8  Implementation  of  Some  of  the  Subroutines 

8.8.1  DATINIT 

The  implementation  of  the  TEMP5  program  begins  with  the  inputting  of  all 
required  program  parameters  and  the  initializing  of  the  working  arrays  which  will 
eventually  be  used  by  CYLTMP.  DATINIT  accomplishes  all  of  this  by  a  call  to 
GETDATA.  Furthermore,  DATINIT  assigns  default  values  to  the  VALUE  portion 
of  DATAIN,  which  is  an  array  of  TEMP5  parameters,  and  also  assigns  names  and 
format  codes  to  the  NAME  and  FORMAT  portions  of  DATAIN.  This  will  be 
described  in  more  detail  in  Section  8,8.4  on  GETDATA. 

A  complete  tabulation  of  all  the  required  input  data  is  given  in  Table  2.  The 
table  lists  both  the  data  and  the  variable  names,  their  corresponding  default  values, 
formats,  the  particular  major  programming  package  in  which  each  quantity  is 
ultimately  used,  and  a  succinct  description.  The  default  values  listed  in  Table  2 
for  the  material  properties  such  as  refractive  index,  absorption  coefficient,  etc., 
pertain  to  KC1. 

It  should  be  noted  that  although  all  of  the  variables  itemized  in  Table  2  may 
be  inputted  at  this  stage  of  the  program,  not  all  of  them  will  actually  be  used  in 
TEMP5.  Many  of  them  will  be  called  up  later  in  the  TIKIRK  and  DISPLAY 
programs. 


14.  Ralston,  A.,  and  Wilf,  H.  S.  (1967)  Mathematical  Methods  for  Digital 
Computers,  Vol.  II,  Wiley  and  Sons,  Inc.,  New  York. 


Another  factor  to  be  noted  in  Table  2  is  that  the  values  of  M  and  N  have  been 
chosen  to  be  80  and  20,  respectively.  Since  the  indices  on  the  RHO  and  ZED 
coordinates  extend  from  0  to  M+l,  and,  0  to  N+l,  respectively,  this  means  that 
the  net  depicted  in  Figure  3  consists  of  82  points  along  the  radial  direction  and  22 
points  along  the  axis.  Meanwhile,  since  the  indices  on  the  RFIN,  ZFIN  coordi¬ 
nates  extend  from  1  to  M+l,  and,  1  to  N+l,  respectively,  then  the  array  of  points 
at  which  interpolation  occurs  consists  of  81  points  along  the  radial  direction  and 
21  points  along  the  axis. 

8.8.2  CYLTMP 

The  temperature -related  terms  U,  FI  and  F2  really  constitute  the  principal 
output  of  the  entire  TEMP5  program.  Computation  of  these  quantities,  as  pre¬ 
scribed  by  Eqs.  (29),  (30),  (16)  and  (17),  are  actually  carried  out  by  the  subrou¬ 
tine  CYLTMP,  with  the  aid  of  TRIDAG  and  SPLNI.  Figure  20  shows  a  flow  chart 
for  the  CYLTMP  algorithm.  Table  3  gives  a  glossary  of  the  variable  names. 

Source  turn-off  is  accomplished  in  subroutine  CYLTMP  by  setting  the  volume 
source  term  (array  q)  and  "boundary"  source  term  (array  g)  to  0  at  the  appropri¬ 
ate  time.  At  the  end  of  each  t -cycle  through  CYLTMP,  the  temperature  distribu¬ 
tion  at  t  +  At  has  been  computed  where  t  is  the  time  at  the  start  of  the  cycle. 

Thus,  a  check  is  made  at  the  start  of  each  cycle  to  see  if  t  +  At  is  less  than  tq£|. 

If  it  is,  then  the  cycle  continues  normally  with  the  source  terms  "on."  When 
t  +  At  first  becomes  equal  to  or  greater  than  tq^,  a  "flag"  is  set  and  a  new  At  is 
computed  such  that  t  +  At  =  TQff  and  the  cycle  continues.  When  the  subroutine 
returns  to  the  start  of  the  next  cycle,  the  source  term  is  set  to  0.  In  addition  the 
variable  NN  is  reset  to  0  and  At  is  computed  as  was  done  for  source  turn-on. 

8.8.3  TRIDAG 

This  is  a  subroutine  for  solving  a  system  of  linear  simultaneous  equations 
having  a  tridiagonal  coefficient  matrix.  The  equations  are  numbered  from  IF 
through  L,  and  their  subdiagonal,  diagonal,  and  superdiagonal  coefficients  are 

stored  in  arrays  A,  B,  C.  The  computed  solution  vector  (V(IF),  . ,  V(L))  is 

stored  in  array  V. 

The  mathematical  details  of  all  of  the  steps  involved  in  solving  the  tridiagonal 
equations  have  been  given  in  Section  8.4. 

The  coding  for  subroutine  TRIDAG  is  taken  from  Carnahan  et  al^on  page  446. 

8.8.4  GETDATA 

8.  8. 4.1  Description 

This  subroutine  is  designed  for  inputting  problem  data  when  a  program  is  run 
under  CDC6600  INTERCOM  control.  It  may  also  be  used,  however,  for  inputting 
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Table  2.  Input  Data  for  the  Implementation  of  the  TEMP5  Program 


(1) 

(2) 

(3) 

(4) 

(5) 

(6) 

(7) 

DATAIN 

Seq. 

Datum 

Variable 

Default 

Format 

Useage 

No. 

Name 

Name 

Value 

Code 

Code 

Description 

Print /punch  FI, 
F2  and  param¬ 
eters. 


Print  TAU,  LMDA, 
MU,  MN,  NO,  IN  IT, 
ICNTR.  Also, 
use  1  if  IKIRKP 
option  is  desired; 
use  2  for  IKIRK 
option,  (see  Sec. 
9.2.) 


3* 

13 

13 

2 

0 

T 

Print  arrays:  KK, 
A,  B,  C,  D,  UPRIM 
in  CYLTMP;  also 
initial  values  of 

U,  USTAR,  etc. 

4* 

14 

14 

2 

0 

T 

Print  U  and  Q 
after  initial  data 
read-in  or  com¬ 
putation. 

5* 

15 

15 

2 

0 

T 

Print  array  UFIN 
at  every  fifth 
value  of  both  RFIN 
and  ZFIN. 

1 

6* 

16 

16 

2 

0 

T 

Punch  array  UFIN 
and  parameters. 

7* 

17 

17 

2 

0 

T 

Print  array  U  at 
the  following 
RHO(I)  and  ZED(J) 
points:  1=2,  2+MI, 
2+2MI,  2+3MI, . . , 

<  81 

J=2,  2-KNI,  2+2NI, 
2+3NI,  ..,  <21. 

) 

8 

M 

M 

80 

0 

T 

M+l  is  the  number 
of  radial  points  at 
which  temperature 
data  is  outputted. 

9 

N 

N 

20 

0 

T 

N+l  is  the  number 

of  axial  points  at 
which  temperature 
data  is  outputted. 


For  II  through  17:  If  the  value  is  set  equal  to  1,  then  appropriate  output  will  be 
printed;  if  the.  value  is  set  equal  to  2,  then  output  will  be  suppressed. 
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Table  2.  Input  Data  for  the  Implementation  of  the  TEMP5  Program  (Cont. ) 


(1) 

DA  TAIN 

(2) 

(3) 

(4) 

(5) 

(6) 

(7) 

Seq. 

Datum 

Variable 

Default 

Format 

Useage 

No. 

Name 

Name 

Value 

Code 

Code 

Description 

10 

MI 

MI 

1 

0 

T 

Every  Ml-th 
point  in  the  rad¬ 
ial  direction  is 
printed  (see  1 7). 

11 

NI 

NI 

1 

0 

T 

Every  Nl-th 
point  in  the  axial 
direction  is 
printed  (see  17). 

12 

ICNT 

ICNT 

1 

0 

T 

Array  U  is 
printed  out  for 
every  ICNT-th 
time  cycle  (see 
17). 

13 

IU 

IU 

0 

0 

T 

If  0,  temperature 
distribution  U 
initialized  to  U0. 

If  1,  initial  tem¬ 
perature  distri¬ 
bution  read -in  on 
file  tape  ICARD. 

14 

IQ 

IQ 

1 

0 

T 

If  IQ  =  0,  initial¬ 
ize  source  Q  to 
zero. 

If  IQ  =  1,  initial¬ 
ize  source  Q  to 
Gaussian. 

If  IQ  *  0,  1  read 
source  Q  from 
file  tape  ICARD. 

15 

NO 

NO 

2 

0 

T 

The  arbitrary 
positive  integer 
n0  in  Eq.  (82)  of 
text. 

16 

NMX 

NMX 

11 

0 

T 

nmax  (see  Sec. 
8.6). 

17 

IRUN 

IRUN 

100 

0 

Not  used. 

18 

ICARD 

ICARD 

5 

0 

T 

Input  file  for  some 
of  the  input  con¬ 
trolled  by  IU,  IQ. 
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Table  2. 

Input  Data  for  the  Implementation  of  the  TEMP5  Program  (Cont. ) 

(i) 

DA  TAIN 

(2) 

(3) 

(4) 

(5) 

(6) 

(7) 

Seq. 

Datum 

Variable 

Default 

Format 

Useage 

No. 

Name 

Name 

Value 

Code 

Code 

Description 

19 

IPRINT 

IPRINT 

6 

0 

T 

Output  file  for  all 

TEMP5  output 
except  for  some 
of  the  "inter¬ 
active"  output  and 
unformatted  tem¬ 
perature  output. 

20 

IPNCH 

IPNCH 

0 

N 

In  original 

TEMP5,  identi¬ 
fies  "punch"  out¬ 
put  file. 

21 

ITAP3 

ITAP3 

3 

0 

T 

Unformatted  out¬ 
put  file  for  time- 
temperature. 

22 

ITAP4 

ITAP4 

4 

0 

T 

"Interactive" 
input  file. 

23 

RHOl 

RHOl 

0 

1 

T 

Pi 

24 

RH012 

RH012 

1 

1 

T 

P  12 

25 

ZED1 

ZED1 

5546 

1 

T 

?1 

26 

ZED  12 

ZED12 

1.  1092 

1 

T 

?12 

27 

DTAUO 

DTAUO 

.0035 

1 

T 

Ato 

28 

TAUMX 

TAUMX 

5.0 

1 

T,  K 

Tmax  (see  Sec. 8.  6). 

29 

TAUOFF 

TAUOFF 

5.0 

1 

T 

r0ff  (see  Sec.  8.  6). 

30 

SIG 

SIG 

.  1292 

1 

T,  K 

Either  a  or  cre 
(see  Eq.  (33)  or 

(37)). 

31 

Q0 

Q0 

0 

1 

T 

If  you  want 

A  =  Arp/2cr  (see 

Eq.  37),  then  set 

Q0  =  A.  (Be  sure 

A  >  .  001;  highly 
unlikely  to  be 
otherwise). 

If  you  want 

A  =  1/2  og  (see 

Eq.  33),  then  set 

Q0  <  .  001  (say, 

0). 

32 

UO 

UO 

0 

1 

T 

Initial  (uniform) 
temperature  dis¬ 
tribution. 

Table  2.  Input  Data  for  the  Implementation  of  the  TEMP5  Program  (Cont. ) 


(1) 

DA  TAIN 

(2) 

(3) 

(4) 

(5) 

(6) 

(7) 

Seq. 

Datum 

Variable 

Default 

Format 

Useage 

No. 

Name 

Name 

Value 

Code 

Code 

Description 

33 

EPS 

EPS 

.001 

1 

T 

Error  tolerance 

in  spline  inter¬ 
polation. 

34 

Gl(l), 

G1 

0,  0,  0,  0 

1 

T 

Surface  heat  flux 

*  to 

Gl(2), 

(see  Eqs.  (33)  or 

Gl(3), 

(37)). 

37 

Gl(4) 

38 

Hl(l), 

HI 

o, 

1 

T 

Surface  heat 

to 

HI  (2), 

.0113 

transfer  coeffi¬ 

Hl<3), 

.0113 

cient  (see  Eqs. 

41 

HI  (4) 

.  0113 

(33)  or  (37)). 

42 

MATERIAL 

MATER 

KCL 

-1 

Cylinder  material 
identifier.  Used 
for  identification 
purposes  only. 

It  is  not  "used" 
by  any  program, 

but  can,  of  course, 
be  printed  in 

TIKIRK  listings 
and  on  DISPLAY 
plots. 

43 

REF.  IND. 

NX 

1.47 

1 

K 

Cylinder  refrac¬ 
tive  index. 

44 

BETA 

BETA 

. 00048 

1 

K 

Bulk  absorption 
coefficient  (cm-1). 

45 

THER.COND 

K 

.0653 

1 

K 

Thermal  conduc¬ 
tivity  (W/cm-°C). 

46 

LAMBDA 

LAMBDA 

10.  6 

1 

K 

Wavelength 

(microns). 

47 

SIR 

SIR 

-.  34E-5 

1 

K 

Stress  optic  coef¬ 

ficient  SP(°C)-1. 

48 

SIT 

SIT 

. 05E-5 

1 

K 

Stress  optic  coef¬ 
ficient  s|(°c)‘. 

49 

S2R 

S2R 

.  IE-5 

1 

K 

Stress  optic  coef¬ 
ficient  S^(°C)  . ' 

50 

S2T 

S2T 

-.  IE-5 

1 

K 

Stress  optic  coef¬ 
ficient  s|(°C)  . 

51 

DENSITY 

DEN 

1.  98 

1 

K 

Density  (gm/crn^). 

52 

SPEC.HEA  T 

CP 

.  691 

1 

K 

Specific  heat 
(J/gm-°C). 

53 

RADIUS 

R 

1.  258 

1 

K 

Radius  (cm). 
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Table  2.  Input  Data  for  the  Implementation  of  the  TEMP5  Program  (Cont. ) 


(1) 

DA  TAIN 
Seq. 

No. 

(2) 

Datum 

Name 

(3) 

Variable 

Name 

(4) 

Default 

Value 

(5) 

Format 

Code 

(6) 

Useage 

Code 

(7) 

Description 

54 

EXPER 

EXPER 

2 

-1 

Not  used. 

55 

PWR 

PW 

24.7 

1 

K 

Transmitted 
power  Pj-,  in 
watts  (see  Eq.  9). 

56 

R1 

R1 

81 

0 

Not  used. 

57 

Z1 

Z1 

11 

0 

Not  used. 

58 

R2 

R2 

1 

0 

Not  used. 

59 

PLT  ?  IY, 

2N 

IPLOT 

1 

0 

Not  used. 

60 

PROBNO 

PROBNO 

2347 

-1 

Problem  number- 
for  plot  identifi¬ 
cation. 

61 

TICU 

TICU 

.  5 

1 

Not  used. 

62 

XLEN 

XLEN 

20. 

1 

Not  used. 

63 

YLEN 

YLEN 

9. 

1 

Not  used. 

64 

X-SCALE 

SCALEX 

12. 

1 

Not  used. 

65 

Yl- SCALE 

SCALEY1 

.2 

1 

Not  used. 

66 

Y2 -SCALE 

SCALEY2 

.2 

1 

Not  used. 

67 

to 

71 

XTITLE1 

2,  3,  4.  5 

XTITLE 

time 

-1 

D 

The  x-axis  is 
given  a  title  of 
the  form  "XTITLE 
scale  is  n  units/ 
tic"  where  n  may 
be  scalex.  Also 
parameter  title. 

72 

to 

76 

YTITLE1 

2,  3,  4,  5 

YTITLE1 

temp- 
deg.  C 
above 
amb 

-1 

D 

Similar  to 

XTITLE,  "sur¬ 
face"  title  in 
DISPLAY. 

77 

to 

81 

YTITLE2 

2,  3,  4,  5 

YTITLE2 

mean 

temp 

above 

amb 

-1 

Not  used. 

82 

OPERATOR 

NAME 

GIANINO 

-1 

D 

Plot  identification 
(required  for  pick¬ 
ing  up  plots  at 
central  site). 

80 
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Table  2.  Input  Data  for  the  Implementation  of  the  TEMP5  Program  (Cont. ) 


(1) 

DA TAIN 

(2) 

(3) 

(4) 

(5) 

(6) 

(7) 

Seq. 

Datum 

Variable 

Default 

Format 

Useage 

No. 

Name 

Name 

Value 

Code 

Code 

Description 

83 

XTI 

radial 

-1 

D 

Title  for  "x-axis" 

to 

2,3,4,  5 

distance 

in  DISPLAY. 

87 

rho-(cm) 

88 

YT1 

axial 

-1 

D 

Title  for  "y-axis" 

to 

2,  3,  4,  5 

distance, 

in  DISPLAY. 

92 

z-(cm) 

N.B.  £  means  "zero";  0  means  "oh". 

Explanation  of  Columns 

(1)  The  sequence  number  of  the  datum  stored  in  array  DA  TAIN. 

(2)  Datum  name  used  by  operator  when  he  inputs  the  data.  This  name  is  a 


used  by  op« 

character  string.  E.  g.  ,  H  means  2HI1  in  Hollerith  notation. 

(3)  The  symbolic  name  used  in  the  TEMP5  program.  The  same  quantity  may 
be  given  a  different  variable  name  in  other  programs  that  used  the  quantity. 

(4)  The  value  that  will  be  assigned  to  each  item  listed,  unless  a  different  value 
is  inputted. 

(5)  Os  integer  (110)  format. 

1  =  floating  point  (E10.  0)  format. 

-1  s  character  string  (6A10)  format,  that  is,  up  to  60  characters  are 
permitted. 

(6)  N  s  not  used. 

Y  =  used  in  TEMP5  program. 

K  3  used  in  TIKIRK  program. 

D  s  used  in  DISPLAY  program. 


.......  ...  .  • 
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Table  3.  Glossary  of  Variable  Names  '  ^ 


■A  (I) 

.  =. 

Tridiagonal  system  .  =.  coefficient  vectors. 

B(I) 

Tridiagonal  system  .  =,  coefficient  vectors. 

BETA(I) 

Auxiliary  variable:  Thomas  Algorithm  for  TRIDAG 
matrix  inversion. 

C(I) 

Tridiagonal  system  .  =.  coefficient  vectors. 

D(I) 

.  =. 

Tridiagonal  system  .=.  coefficient  vectors. 

DRHO 

Program  control  parameter  .=.  Ap  =  (p2  -  p^)/ M. 

DTAU 

Time  increment  parameter  .  =.  At. 

DTAUO 

Time  increment  parameter  ,  =.  Atq. 

DZED 

.  =. 

Program  control  parameter  .  =.  A?  =  (?2  "  ?j)/N. 

E(I) 

Space  increment  array  .  =.  DRHO,  DZED. 

EPS 

.  =. 

Error  tolerance  in  iterative  steps. 

F1(I) 

.  =. 

An  array  of  integrals. 

F2(I) 

An  array  of  integrals. 

G(I) 

.  =. 

Coefficient  in  general  boundary  condition. 

GAMMA 

•  =  • 

Auxiliary  working  variables -Thomas  Algorithm  (see 

Eq.  (58)). 

GAUSS 

Subroutine  for  loading  Q  with  a  truncated  Gaussian 
distribution. 

GF(X,  Y.  Z) 

.  =. 

Statement  function  =  (2.  *Y*Z)/(2.+X*Y). 

G/H 

Given  nondimens ional  surface  temperature. 

G(I) 

gj,  g2,  g3,  g^,  .  =.  boundary  condition  parameter. 

G1(I) 

Buffer  to  retain  input  G(I).  G(I)  modified  during  program 
execution. 

H(I) 

.  =. 

h, ,  h„,  h,,  tij  .  =.  boundary  condition  parameter.  Film 
coefficient. 

HF(X,  Y) 

Statement  function  .  =.  boundary  condition  .  =. 
(2.-X*Y)/(2.+X*Y)  (see  Eqs.  (44)-(47)). 

*The  symbol  .  =.  means  "is  defined  as." 
t  0  means  "zero";  0  means  "oh." 
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Table  3.  Glossary  of  Variable  Names  (Cont. ) 


H=0,  G=0 

No  heat  crosses  boundary  .  =.  physical  significance  of 

H  and  G. 

H1(I) 

.  =, 

Buffer  to  retain  input  H(I).  H(I)  is  modified  during 
program  execution. 

I 

Indexing  variable. 

ICARD 

.  =. 

Logical  device  number  for  card  reader. 

ICNT 

.  =. 

Number  of  I.A.D.  cycles  between  printouts. 

ICNTR 

Number  of  I.A.D.  cycles  since  last  printouts. 

IP 

Indexing  variable. 

II 

1-1. 

IKEY 

.  =. 

Logical  device  number  for  keyboard  (or  card)  input. 

IPM(I) 

.  =, 

Basic  program  parameters  integer:  see  equivalence 
statements. 

IPNCH 

.  =. 

Logical  device  number  for  the  card  punch. 

IPRINT 

.  =. 

Logical  device  number  for  line  printer. 

IQ 

=  0 

Initialize  Q  to  zero  .  =  .  no  absorption. 

=  1 

Calculated  Q  for  Gaussian  distribution. 

=  2 

.  =. 

Read  in  value  of  Q. 

IRUN 

Run  number. 

ITAP3 

.  =. 

Logical  device  number  for  TAPE3, 

ITAP4 

Logical  device  number  for  TAPE4. 

ITYPE 

.  =. 

Printing  out  on  operators  terminal  (if  possible). 

Logical  device  number. 

IU 

=  0 

.  =. 

Initialize  U  (temp)  to  zero. 

=  1 

.  =. 

Read  in  initial  value  of  U. 

11 

Punch  and  print  FI,  F2,  and  parameters.  Control  for 
output. 

12 

.  =. 

Print  TAU,  LMDA,  MU,  NN,  NO,  ICNT,  ICNTR. 

Control  for  output. 

13 

,  =, 

Print  KK,  A,  B,  C,  D,  UPRIM  .  =.  Initialize  values  of 

L,  USTAR,  etc.  TRIDAG  debug. 

14 

.  =• 

Print  U  and  Q  after  initial  data  read-in  or  computed. 

Table  3.  Glossary  of  Variable  Names  (Cont.) 


15 

,  =, 

Print  I,  ,T,  UFIN(I,  J,  K). 

16 

Punch  UFIN  and  parameters. 

17 

Print  I,  J,  U(I,  J)  on  half  increment  shifted  lattice. 

J 

.  =. 

Indexing  variable. 

JJ 

Varies  with  J  for  indexing. 

K 

Indexing  variable  .  =  .  see  cross  reference. 

KK,  KS,  L 

Indexing  variables. 

LMDA 

X  =  A?(Ap)  .  =.  Special  parameter. 

M 

.  =. 

p  -net  length  .  =.  M  ■  Ap  =  1  -  p 

MI 

Step  size  for  output  do-loop  .  =.  p -direction. 

MS 

Number  of  given  data  points. 

MU 

.  =. 

H  =  At/(A?)2- 

Ml 

.  =. 

M+l.  Loop  indexing  variable. 

M2 

,  =. 

Ml+1.  Loop  indexing  variable. 

N 

Special  parameter  .  =.  Count  of  Tau  increments. 

NF 

.  =, 

Number  of  time  intervals. 

NFF 

.  =. 

Duplicate  storage  for  NF. 

NI 

Step  size  for  output  do-loop  .=.  zed  direction. 

NMX 

.  =. 

N 

max 

NN 

.  =. 

n. 

NS 

.  =. 

Number  of  Spline  Interpolated  arguments. 

NSEQ 

Sequencing  index  for  punched  card  output. 

NO 

Delta  Tau  doubling  count. 

Nl 

N+l. 

N2 

Nl+1. 

PARA  M<I) 

•  "  • 

Basic  program  parameters,  REAL,  see  equivalence 
statements. 

Q(I,  J) 

•  —  * 

Source  distribution. 

lit 
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QQ 

,  =  . 

Working  variable  used  in  do-loop  for  Q(I,  J). 

QUA  (I) 

•  =• 

Values  of  integral  SS  from  X(I)  to  X(N). 

QO 

•  =• 

Control  parameter  for  calculation  of  Q(I,  J)  in  GAUSS. 

REX 

.  “  . 

RNN/RNO. 

RF1N(I) 

•  =• 

Even  R-Lattice  point  coordinates. 

RHO(I) 

•  “  ■ 

Half-intervai  shifted. 

RHOl 

•  “  i 

Pr 

RH012 

•  • 

1  -  pr 

RI 

II. 

RJ 

•  =• 

JJ  .=.  RJ/2, 

RM 

M. 

RN 

a  ""a 

N. 

RNN 

a  —  a 

Real  representation  of  NN  to  avoid  mixed  mode  in  Delta 
Tau  calculation. 

RNO 

a  “  a 

Real  representation  of  NO  to  avoid  mixed  mode  in  Delta 
Tau  calculation. 

RRR(I) 

a  "*  a 

RFIN(I). 

SIG 

a  a 

Variance  of  Gaussian  beam  intensity  dist. 

SIG2 

•  “» 

SIG  squared. 

SS1(I) 

•  =• 

First  derivatives  of  U. 

SS2(I) 

■  =  « 

Second  derivatives  of  U.  . 

TAU 

•  “  • 

Nondimensional  time  .  =.  t. 

TAUMX 

•  =• 

Maximum  tau  to  be  computed  .  =.  r 

max 

TFIN 

Array  of  t  -values  for  which  we  take  printed  or  punched 
output. 

U(I,  J) 

Array  of  nondimensional  temperatures  on  RHO-ZED 
lattice. 

UCARD 

UFIN  buffer  for  card  and  line  printer  output. 

UFIN(I,  J,  K) 

*  =# 

U  on  RFIN-ZFIN  lattice  at  Kth  time. 
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Table  3.  Glossary  of  Variable  Names  (Cont. ) 


UPRIM(I) 

.  =. 

Storage  of  results  of  solutions  to  tridiagonal  equations. 

USPLN(I) 

.  =, 

Temporary  work  space  used  between  Rho-splining  and 
Zed-splining. 

USTARU,  J) 

.  =. 

Intermediate  temperature  distribution  in  I.  A.D.  method. 

UO 

U(I,  J).  For  uniform  initial  temperature  option. 

V 

Computed  solution  vectors  in  TRIDAG. 

X(I) 

Array  of  strictly  increasing  abscissa. 

XR(I) 

.  =. 

RHO(I). 

XX 

.  =. 

Work  space  for  desired  abscissas. 

XZ(I) 

RHO  protection. 

YU(I) 

.  =• 

UFIN(I,  J). 

ZED(I) 

.  =. 

Nondimens ional  axial  coordinate  [cm]  .  =.  Z/A. 

ZED1 

Lower  Zed  boundary  .  =  . 

ZED  12 

.  =. 

s2-*r 

ZFIN(I) 

,  =, 

Lattice  coordinates  that  land  on  boundary  instead  of  half 
shifted  position.  Used  for  CYLTMP  Algorithm. 

ZJ 

.  =. 

JJ. 

ZZZ(I) 

,  =, 

ZFIN(I). 
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Figure  20.  Flow  Chart  for  the  CYLTMP  Algorithm  (Sheet  1  of  4) 
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data  when  the  program  is  "batched."  The  data  which  is  obtained  through 
GETDATA  is  stored  in  array  DATAIN  as  an  n  by  3  array,  where  n  is  the  maximum 
number  of  data  to  be  inputted.  Each  datum  consists  of  three  parts  (hence  n  x  3), 
which  is  herein  referred  to  as  VALUE,  NAME,  and  FORMAT.  VALUE  is  the 
numerical  or  character  string  value  which  will  be  stored  for  the  datum;  NAME  is 
a  character  string  (up  to  ten  characters)  by  which  the  datum  may  be  identified. 
FORMAT  is  a  code  number  (-1,  0,  or  1)  which  is  used  to  indicate  that  the  datum  is 
to  bft  interpreted  respectively  as:  character  string,  intef  er,  or  real  (floating 
point)  number. 

The  first  three  data  required  by  GETDATA  are  not  part  of  DATAIN,  but  are 
used  to  control  the  operation  of  GETDATA.  In  INTERCOM  mode  each  of  these 
three  data  are  preceded  by  questions  as  follows: 

1)  READ  DATA  FILE  -n?-  (n  is  the  file  number) 

2)  DEFAULTS  LISTED  ?- 

3)  NAME -VALUE  MODE ?- 

The  input  data  is  either  YES  or  NO  (the  default  is  NO).  If  the  answer  to  1)  is 
YES,  then  array  DATAIN  is  filled  from  the  first  record  on  TAPE-n.  Normally, 
DATAIN  should  be  filled  with  defaults  in  the  calling  program.  These  default 
values  will  then  be  replaced  by  new  "default"  values  obtained  from  TAPE-n. 

If  the  answer  to  2)  is  YES,  then  the  default  DATAIN  is  printed  out  in  the  form: 

NAME = VALUE. 

FORMAT  is  indicated  by  the  form  in  which  VALUE  is  printed.  Integers  are 
numerical  values  with  no  decimal  point;  floating  point  numbers  are  printed  with  a 
decimal  point  and  possibly  an  exponent.  Character  strings  are  indicated  by  single 
quotes.  The  default  values  are  listed  in  the  order  in  which  they  are  stored  in 
DATAIN. 

If  the  answer  to  question  3)  is  YES,  then  the  NAME-VALUE  input-mode  is 
used  to  input  data;  otherwise,  the  LIST  mode  is  used.  These  two  input  modes  are 
described  in  detail  below. 

After  these  "control"  data  have  been  inputted,  the  DATAIN  data  are  inputted. 

8.8.4.  2  List  Mode 

In  the  LIST  mode,  GETDATA  starts  out  by  printing  the  first  NAME  in  DATAIN 
and  then  waits  for  the  operator  to  type  the  VALUE  to  be  assigned  to  NAME.  Simi¬ 
larly,  it  sequences  up  t.o  the  last  NAME  in  DATAIN,  and  then  prints  out  a  message 
"data  input  complete,'5  after  the  last  VALUE  in  the  sequence  has  been  given  by  the 
operator.  The  operator  defaults  a  value  by  punching  the  "space,"  "carriage 
return"  keys  (denoted  below  as  SP,  CR,  respectively).  If  at  any  time  the  operator 
realizes  that  an  error  has  been  made  in  typing  any  preceding  VALUE  (not  just  the 


current  one),  it  may  be  corrected  by  typing  $,  CR.  This  causes  a  shift  to  the 
NAME-VALUE  mode,  under  which  both  the  VALUE  and  NAME  must  be  given  by 
the  operator.  By  this  means,  VALUES  which  were  assigned  earlier  in  the 
sequence  can  be  changed.  After  the  correct  name  and  value  have  been  given  by 
the  operator,  the  LIST  mode  continues  where  it  left  off.  For  example,  if  the 
NAME,  OPERATOR  was  listed  and  the  operator  had  typed  $  next  to  this  NAME, 
the  same  NAME  would  be  typed  again  upon  return  from  the  NAME-VALUE  mode. 

It  might  be  noted  that  if  a  VALUE  has  been  typed  (and  not  signaled  with  $)  which 
is  incompatible  with  the  FORMAT  to  be  associated  with  that  value,  then  the  sub¬ 
routine  automatically  goes  into  the  NAME-VALUE  mode  after  typing  the  message: 
"wrong  data  type-try  again." 

The  NAME -VALUE  mode  has  the  feature  of  terminating  input,  whenever  SP, 
CR  are  typed,  when  the  program  is  waiting  for  a  new  NAME,  VALUE  pair.  Thus, 
it  may  be  convenient  to  terminate  inputting  when  in  the  LIST  mode,  by  typing  $, 
then  SP,  CR  after  the  NAME-VALUE  mode  has  been  initiated. 

8.  8.  4.  3  Name-Value  Mode 

In  this  mode,  the  program  first  types  out  the  words  "name"  (6  blanks) 

"value . ",  and  then  waits  expectantly  with  the  type  head  directly  under  the 

"n"  of  "name."  The  operator  must  then  type  the  NAME  and  corresponding  VALUE, 

with  the  VALUE  starting  under  or  after  the  "v"  of  "value."  The  " . "  after 

"value"  indicate  the  maximum  field  for  inputting  numerical  data.  If  the  operator 
types  a  NAME  which  is  unrecognizable,  the  message  "try  again"  is  typed,  followed 

by  another  "name"  (6  blanks)  value . ".  A  mistake  is  corrected  by  merely 

typing  the  NAME  of  the  datum  to  be  corrected  followed  by  its  correct  VALUE. 

(If  a  format  mistake  has  been  made--see  LIST  MODE--then  the  message  "wrong 
data  type-try  again"  is  printed  indicating  that  the  name-value  should  be  retyped. 
The  "name  value . "  header  is  printed  only  once  (or  every  time  an  unrecog¬ 

nizable  NAME  has  been  inputted)  since  thereafter  it  is  easy  to  start  NAME  and 
VALUES  in  the  correct  positions.  (The  typehead  is  always  placed  under  "n"  when 
new  data  is  expected. ) 

Data  input  is  terminated  by  typing  SP,  CR  whenever  the  typehead  is  under  the 
"n"  column  of  the  header. 

The  field  width  for  all  data  is  ten.  Specifically,  integers  (forroat=0)  are  read 
under  110  format;  reals  (format=l)  are  read  under  E10.  0  format.  Character 
strings  (format=-l)  are  read  under  A 10  format,  but  up  to  60  characters  may  be 
inputted  "at  once"  provided  contiguous  space  in  DA  TAIN  has  been  provided  for 
them.  For  example,  suppose  that  DATAIN(  10,  2),  DATAIN(11,  2),  DATAIN(12,  2) 
are  given  the  NAMES  XTITLE(l),  XTITLE(2),  XTITLE(3),  respectively  (implying 
that  space  for  up  to  30  "XTITLE"  characters  has  been  provided  for),  then  the 
entire  "XTITLE"  could  be  inputted  as  follows: 
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NAME  VALUE . 

XTITLE(l)  DISTANCE  ALONG  X-AXIS  (INCHES) 

In  the  LIST  MODE  it  is  also  possible  to  input  six  numerical  data  values  at 
"one  time."  This  should  only  be  done  when  the  job  is  "batched,"  in  which  case 
six  data  values  may  be  placed  on  one  card,  each  one  occupying  a  10-column  field. 
Data  which  is  not  to  be  changed  should  be  replaced  by  blanks.  All  or  some  of  the 
data  may  be  defaulted  by  using  an  end-of-record  card  after  the  last  data  to  be 
inputted,  causing  GETDATA  to  return  to  the  program  or  subroutine.  If  no  data  is 
included  in  the  input  file  a  call  to  GETDATA  will  have  no  effect  (default  DATAIN 
as  provided  by  the  calling  program  will  be  used),  except  the  end-of-file  indicator 
INDIC  will  be  set  to  1. 

GETDATA  has  a  special  "gimmick"  in  that  if  it  is  called  with  a  value  of  INDIC 
other  than  0,  it  may  be  used  to  input  a  single  datum  in  the  LIST  mode.  To  be 
used  in  this  mode,  INDIC  should  be  set  equal  to  the  location  in  DATAIN  of  the 
value  desired,  for  example,  50  for  DATAIN  (50,  1). 

According  to  standard  Fortran  practice,  trailing  blanks  (of  numerical  values) 
are  treated  as  zeros.  For  example,  10E1  would  be  interpreted  as  lOElMity  (that 
is,  I010000)  and  1  would  be  interpreted  as  lWftWftty  (that  is,  1  X  109).  GETDATA 
calls  a  subroutine  (RJUST)  which  removes  all  trailing  blanks  from  numerical  (but 
not  character  string)  data  so  that  trailing  blanks  are  not  treated  as  zeros. 

8.8.4. 4  Entry-Parameter  List: 

SUBROUTINE  GETDATA  (DATAIN,  NV,  IIN,  IOUT1,  IOUT2,  IIN1,  ISIZE, 
ISIZET,  INDIC)  Parameters: 

DATAIN  -  3  dimensional  array  of  values,  names  and  formats. 

NV  -  amount  of  data  to  be  inputted. 

IIN  -  input  file  number  for  GETDATA. 

IOUT1  -  "interactive"  (primary)  output  file  for  GETDATA. 

IOUT2  -  secondary  output  file  (stores  formatted  names  and  values  which  are 
returned  by  GETDATA). 

UNI  -  "scratch"  input/output  file  for  reading  in  "default"  values  of 
DATAIN  and  outputting  DATAIN  as  modified  by  GETDATA. 
(Unformatted  i/o). 

ISIZE  -  DATAIN  is  assumed  to  be  dimensioned  (ISIZE,  3)  in  the  calling  pro¬ 
gram.  It  is  the  size  of  the  first  dimension  of  DATAIN. 

ISIZET  -  3*  ISIZE. 
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INDIC  -  an  end  of  file  indicator.  A  value  of  1  is  returned  if  an  end-of-file 
on  input  occurs.  If  INDIC  is  given  a  value  other  than  0  in  the  call¬ 
ing  program,  GETDATA  will  go  into  the  LIST  mode  to  obtain 
DA  TAIN  (INDIC-). 

When  operating  under  INTERCOM,  files  IIN  and  I0UT1  should  be  "connected." 

The  storage  required  for  GETDATA  plus  its  two  required  subroutines  RJUST 
and  SSWTCH  is  266  words. 

8.  8.  4.  5  Algorithm 

All  data  "cards"  are  read  using  6A10  format.  If  the  first  word  is  blank,  then 
the  subroutine  goes  to  the  next  "card"  (LIST -mode)  or  terminates  (NAME-VALUE 
mode).  In  the  LIST  mode,  fields  are  searched  for  the  first  blank  field,  upon 
which  the  next  "card"  is  read.  In  NAME -VALUE  mode,  the  search  is  made  only 
if  the  FORMAT  code  for  the  datum  is  -1,  indicating  a  possible  character  string 
greater  than  10  characters.  In  LIST  mode,  a  search  is  made  of  each  field  to  see 
if  $  occurs  using  AFCRL  subroutine  MXGETX.  If  it  does,  a  jump  is  made  to  the 
NAME-VALUE  mode  of  input.  All  values  which  are  to  be  interpreted  as  numbers 
(integer  or  real)  have  their  character  string  representations  right  adjusted  using 
PML  subroutine  RJUST.  The  conversion  from  character  string  to  coded  number 
is  done  with  the  DECODE  statement  using  the  appropriate  format  (110,  E10.0,  or 
A10). 

The  CDC  subroutine  ERRSET  is  called  in  case  of  a  bad  format.  A  bad  format 
causes  a  jump  to  NAME  VALUE  mode  of  input. 

8.  8.  4.  6  Special  Caution  and  Features 

There  are  three  different  formats  recognized  by  GETDATA:  floating  point 
(E10.  0),  integer  (110),  and  character  string  (6A10). 

These  formats  are  given  the  codes  1,  0,  -1,  respectively.  The  E10.0  format 
converts  any  decimal  number  which  can  be  "sensibly"  written  as  a  string  of  ten  or 
less  characters  into  CDC6600  floating  point  number  representation.  Examples  of 
permissible  character  strings  are: 

328. 5678E4 

328.  5678+4  (the  E  may  be  omitted) 


328. 5678+4 
3285678. 
3285678 
-5.  77E-10 


(a  decimal  point  is  not  necessary) 


Specifically,  a  floating  point  number  may  be  written  with  or  without  an  expo¬ 
nent  (which  may  be  indicated  by  the  letter  E  followed  by  a  signed  or  unsigned  inte¬ 
ger  OR  a  signed  integer).  It  may  or  may  not  have  a  decimal  point.  Blanks  are 
ignored. 


The  110  format  converts  any  decimal  integer  which  can  be  written  as  a 
sequence  of  10  or  less  characters  from  the  set  [+,  0, . . . ,  9]  into  a  CDC6600 

integer.  Trailing,  as  well  as  leading  blanks  within  the  field  are  effectively 
ignored.  This  is  convenient  since  it  is  easier  to  input  1  for  instance,  as  opposed 
to  or  0000000001.  Note,  however,  that  3^2  would  be  interpreted  as 

3002,  that  is,  intermediate  blanks  are  considered  to  be  zeros.  (Note  that  an  all 
blank  field  is  NOT  equivalent  to  0  for  GETDATA.) 

The  6A10  format  allows  character  strings  of  up  to  60  characters  to  be  inputted 
"at  once."  However,  one  must  make  sure  that  sufficient  space  has  been  provided 
to  receive  character  strings  of  length  greater  than  10,  since  each  computer  word 
holds  a  maximum  of  10  characters.  Any  of  the  64  characters  listed  in  Appendix  A 
of  the  CDC  Fortran  Extended  Manual  (more  or  less  equivalent  to  the  set  on  an 
INTERCOM  teletype  terminal)  are  permissible  characters  in  the  string.  However, 
the  character  $  has  special  significance.  When  operating  in  the  LIST  mode,  its 
appearance  signifies  that  a  mistake  has  been  made  in  inputting  some  value,  and 
the  subroutine  temporarily  reverts  to  the  NAME-VALUE  mode.  In  this  mode,  $ 
has  no  special  significance  and  is  accepted  as  a  legitimate  character. 

GETDATA  assumes  that  DATAIN  has  been  filled  with  default  VALUES,  as 
well  as  with  the  desired  NAMES  and  FORMATS.  This  initialization  of  DATAIN 
can  be  done  by  the  calling  program  OR  by  GETDATA  itself,  by  reading  in  a 
DATAIN  record  from  file  IIN1. 

It  is  usually  convenient  to  equivalence  DATAIN  to  a  block  of  variables  in  the 
calling  program.  This  simplifies  subsequent  handling  of  the  values  returned  by 
GETDATA  to  the  calling  program. 

GETDATA  also  prints  out  the  following  error  messages  to  aid  the  programmer: 

i)  "try  again"  Occurs  when  in  the  NAME-VALUE 

mode  and  an  unrecognizable  NAME 
is  given. 

ii)  "file  n  is  empty"  Occurs  when  an  attempt  is  made  to 

fill  DATAIN  from  an  empty  file. 

iii)  "wrong  data  type  -  try  again"  Occurs  when  a  bad  format  is  given  for 

the  datum. 


9.  TIKIRK  PROGRAM 


9.1  Introductory  Remarks 

The  principal  objective  of  the  TIKIRK  program  is  to  compute  the  Kirchhoff 
intensity  function,  as  given  in  Eqs.  (23)  or  (28),  Volume  I.  Before  this  can  be 
accomplished,  however,  the  file  TAPE3  containing  the  nondimens ional  tempera¬ 
ture  w  versus  nondimens  ional  time  r,  as  outputted  by  program  TEMP5,  must  be 
available.  Besides  providing  the  nondimens  ional  mean  temperature  distributions 
FI  and  F2  mentioned  previously,  this  file  also  provides  as  the  first  record  an 
array  of  constants  which  are  required  to  dimensionalize  the  data  into  real  tem¬ 
perature  versus  real  time  (cf,  Sections  3,  4,  and  5  of  Volume  I  and  Table  2  of 
Volume  II).  For  a  more  complete  description  of  this  file,  see  Section  9.  5. 

9.2  Program  Options 

The  TIKIRK  program  has  been  set  up  to  operate  under  two  different  options; 
each  one  being  brought  into  play  by  an  appropriate  choice  of  the  parameter  12  in 
TEMP5  (see  Table  2).  The  first  option  uses  subroutine  IKIRK,  which  calculates 
the  intensity  I  as  a  function  of  space  and  time  for  a  Gaussian  source  term.  It 
does  so  using  a  24-point  Gaussian  integration  routine.  It  is  the  option  that  would 
be  used  under  most  circumstances.  The  second  option  constitutes  a  special  test 
case.  A  subroutine  called  IKIRKP  is  used  to  evaluate  the  intensity  functions  on 
either  one  of  the  two  mutually  orthogonal  axes  going  through  the  Gaussian  focal 
point  for  the  special  case  of  a  window  having  a  uniform  mean  temperature. 

Allowing  the  control  parameter  12  in  the  TEMP5  program  to  remain  equal  to 
its  default  value  of  2,  causes  the  first  option  to  be  utilized,  while  setting  12  =  1 
brings  the  second  option  into  play. 

Since  the  form  of  numerical  quadrature  employed  in  option  #  1  may  not  be 
accurate  for  all  parameter  values  which  occur  in  practice,  a  third  option,  which 
uses  a  subroutine  called  IKIRK1,  is  also  available.  This  program  is  highly  accu¬ 
rate  (because  its  integration  methods  are  more  exact),  but  it  is  extremely  slow. 

It  should  be  used  for  relatively  small  ranges  of  the  space-time  variables,  for 
example,  as  a  "spot  check"  for  IKIRK. 

9.3  Principal  Functions  and  Subroutines 

The  TIKIRK  program  requires  that  various  operations,  such  as  integration, 
interpolation,  Bessel  function  computation,  etc. ,  be  carried  out  during  the  process 
of  its  execution.  These  operations  are  performed  by  various  function  subprograms 
and  subroutines.  The  names  of  these  functions  and  subroutines  are  listed  below, 
together  with  their  principal  tasks: 
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(1)  TIKIRK  -  the  main  program  which  calls  the  other  subroutines  and  sub¬ 

programs  into  execution.  It  also  acts  as  the  input/output  inter¬ 
face  for  the  main  real  functions  IKIRK,  IKIRKP  and  IKIRK1 
(see  below). 

(2)  IKIRK  -  the  main  real  function  for  option  #1. 

(3)  PHI  -  the  function  which  computes  . 

(4) ,  (5)  JO  and  J1  -  real  functions;  compute  JQ(pv)  and  J^pv),  respectively. 

(6)  RTAPE3  -  subroutine;  reads  and  linearly  interpolates  (in  time)  tempera¬ 

ture  values  from  TEMP5.  It  also  linearly  interpolates  in  time 
and  then  outputs  the  dimens ionalized  window  temperature 
function  in  a  form  suitable  for  plotting  via  program  DISPLAY. 

(7) ,  (8)  ALI  and  ATSE  -  interpolation  subroutines  for  PHI.  ALI  uses  the 

A  itken- Lagrange  method. 

(9)  DQG24A  -  subroutine;  computes  x-values  for  Gaussian  integration. 

(10)  DQG24B  -  subroutine;  does  Gaussian  integration. 

(11)  IKIRKP  -  the  main  real  function  for  option  #2, 

(12)  COMPUTE  -  subroutine;  computes  the  approximations  to  the  integrals 

which  are  used  in  option  IKIRKP. 

(13)  JI  -  a  real  function  which  computes  moments  of  Bessel  functions. 

(14) ,  (15)  BESJF  and  BESJ  -  a  function  and  a  subroutine,  respectively,  which 

compute  the  Bessel  function  for  a  given  argument 
and  order. 

(16)  GETDATA  -  a  subroutine  for  interactively  inputting  data. 

(17) ,  (18)  SSWTCH  and  RJUST  -  subroutine  used  by  GETDATA.  (See  Sections 

8.7  and  8.  8  for  more  detailed  explanations  of 
GETDATA,  SSWTCH  and  RJUST. )  The  listings 
for  these  two  subroutines  have  already  been 
given  in  Appendices  A.  8  and  A.  9. 

(19)  PRT  -  printed  output  subroutine. 

All  three  options  mentioned  above  use  the  same  "core  package"  of  the  follow¬ 
ing  function  subprograms  and  subroutines  in  their  execution;  TIKIRK,  PHI,  JO, 

Jl,  RTAPE3,  ALI,  ATSE,  GETDATA,  SSWTCH,  RJUST  and  PRT.  In  addition  to 
these,  option  #1  uses  IKIRK  plus  the  subroutines  DQG24A  and  DQG24B,  while 
option  #2  utilizes  IKIRKP  plus  COMPUTE,  JI,  BESJF  and  BESJ. 

We  have  given  this  entire  package  of  19  main  programs,  subroutines,  etc., 
constituting  the  TIKIRK  program  for  options  #1  and  #2  only,  the  permanent  file 
name  (PFN)  of  TIBX. 

The  complete  Fortran  listings  for  each  of  the  above  function  subprograms  and 
subroutines  are  given  in  Appendix  B. 


9.4  Inputting  the  Data 

After  program  TEMP 5  has  been  executed,  output  file  TAPE3  has  been  pro¬ 
duced  and  the  TIKIRK  program  attached,  various  program  control  data  and  con¬ 
stants  pertaining  to  the  calculation  of  the  intensity  function  must  be  inputted, 
regardless  of  the  option  desired.  A  list  of  these  data  is  given  in  Table  4.  (The 
array  containing  this  information  is  called  DATAIN1  in  the  TIKIRK  program. ) 

The  column  headings  are  identical  with  those  of  Table  2,  except  that  there  is  no 
Useage  Code  column  included  here.  Their  meanings  are  cited  in  a  footnote  in  the 

table. 

The  total  "load"  storage  required  for  the  TIKIRK  program  is  56133  B  words. 
(The  program  will  operate  with  a  core  memory  of  60K.  )  Single  precision  is  used 
for  most  calculations.  In  fact,  a  comparison  of  IKIRIC  and  IKIRKP  indicates 
agreement  to  4  significant  figures. 

Since  the  maximum  number  of  sample  "v-values"  is  100,  then  MP  should  be 
<100.  If  more  sample  values  are  required,  then  array  BUF  should  be  dimensioned 
accordingly.  Producing  the  full  array  of  100  X  100  function  values  takes  327  cpu 

secs  (with  OPT  =  l). 

9.5  Program  Files 

The  TIKIRK  program  depends  on  unformatted  output  from  the  TEMP5  program 
and  requires  up  to  6  files.  The  names  of  the  files  used  are  (in  the  order  they 
appear  in  the  program  statement): 

TAPE4  -  "Interactive"  input  file  for  inputting  data  via  GETDATA.  It  is  used 
for  formatted  read  and  must  be  set  to  INPUT  for  batch  operation. 

TAPE5  -  "Interactive"  output  file  for  outputting  messages  from  GE1DATA  and 
and  for  outputting  a  small  amount  of  program  flow  information. 

TAPE3  -  Unformatted  file  outputted  by  TEMP5.  This  file,  among  other 
things,  contains  the  mean  temperature  distribution  functions  FI 
and  F2  required  by  IKIRK  and  IKIRKP.  In  addition,  the  first  record 
is  the  100  by  3  array  referred  to  as  DATAIN  containing  various 
constants  required  by  TIKIRK  and  contained  in  Table  2.  The  follow¬ 
ing  temperature  records  are  assumed  to  be  of  the  form: 

NF,  TFIN,  RFIN(82),  ZFIN(22),  UFIN(82,  22),  Fl(82),  F2(82) 

TAPE7  -  Unformatted  file  containing  the  intensity  distribution  function  in  a 

form  suitable  for  DISPLAY.  The  first  two  records  are  the  100  by  3 
data  arrays  DATAIN  and  DATAIN1,  the  contents  of  which  contain 
all  pertinent  program  parameters  as  well  as  labeling  information 
for  DISPLAY.  All  subsequent  records  are  of  the  form: 


I 


Table  4.  Program  Control  Data  and  Constants  Pertaining  to  the  Calculation  of 
the  Intensity  Function.  The  column  headings  are  identical  with  those  of  Table  2, 
except  that  there  is  no  Useage  Code  column  included  here. 


(1) 

Seq. 

No. 

(2) 

Datum 

Name 

(3) 

Variable 

Name 

(4) 

Default 

Value 

(5) 

Forma 

Code 

(6) 

t 

Description 

1 

J| 

XO 

XO 

1500. 

1 

Gaussian  focus  X  (meters). 

o 

2 

XI 

XI 

1000. 

1 

Minimum  X-value  (meters). 

3 

X2 

X2 

2000. 

1 

Maximum  X-value  (meters). 

4 

RHOP1 

RHOP1 

0. 

1 

Minimum  p1 -value  (cm). 

5 

RHOP2 

RHOP2 

2. 

1 

Maximum  p' -value  (cm). 

6 

MP 

MP 

100 

0 

To  calculate  J  values  of 
intensity  along  the  p'  (or  v) 
axis,  where  J  =  any  integer, 
and  have  each  calculation 
spaced  by  p'maLXl J  (or 
vmax/J)  units,  set 

MP  =  J  +  1. 

7 

NP 

NP 

100 

0 

To  calculate  K  values  of 
intensity  along  the  X  (or  u) 
axis,  where  K  =  any  inte¬ 
ger,  and  have  each  calcula¬ 
tion  spaced  by  (Xmax  - 

^mW/K  [or,  (umax  "  umin^ 
/K]  units,  set  NP  =  K  +  1. 

8 

T 1 

TIM(l) 

10. 

•) 

Array  of  time  values  for 
function  evaluation  (sec- 

9 

T2 

TIM(2) 

-1 

1 

onds).  Note  that  if 
tj+j  <  t[  then  the  program 

' 

" 

- 

stops.  Never  set  T1  =  0; 
use  some  small  number- 

17 

T10 

TIM(10) 

-1 

1  ) 

instead,  e.  g. ,  IE-6. 

18 

EPSI 

EESI 

.001 

1 

Used  by  IBM  Sci.  Sub.  A  LI 
in  interpolation  of  ,  $  . 

19 

MINT 

MINT 

6 

0 

Used  by  IBM  Sci.  Sub.  A  LI 
and  ATSE  in  interpolation 
of  and  $  ,  MINT  is  the 

number  of  points  used  in 
the  interpolation. 

20 

i 

1 

IPRNT 

IPRINT 

1 

0 

Use  1  for  controlling  debug 
output.  Use  2  when  produc¬ 
ing  a  TAPE8  file  for  plotting 
purposes. 

21 

NGAUS 

NGAUS 

24 

0 

Number  of  points  for  Gaus- 

sian  integration.  Note  that 
this  number  should  be 
changed  if  and  only  if  the 
Gaussian  integration  sub¬ 
routine  is  changed. 


Table  4.  Program  Control  Data  and  Constants  Pertaining  to  the  Calculation  of 
the  Intensity  Function.  The  column  headings  are  identical  with  those  of  Table  2, 
except  that  there  is  no  Useage  Code  column  included  here.  (Cont. ) 


(1) 

Seq. 

No. 

(2) 

Datum 

Name 

(3) 

Variable 

Name 

(4) 

Default 

Value 

(5) 

Format 

Code 

(6) 

Description 

22 

MODE 

MODE 

2 

0 

Use  1  if  you  want  I(X,  p ',  t). 
Use  2  if  you  want  I'(u,  v,  t). 
(See  Eqs.  (28)  and  (23)). 

23 

UMIN 

UMIN 

-40. 

1 

Minimum  u-value. 

24 

UMAX 

UMAX 

40. 

1 

Maximum  u-value. 

25 

VMIN 

VMIN 

0. 

1 

Minimum  v-value. 

26 

VMAX 

VMAX 

10. 

1 

Maximum  v-value. 

27 

to 

31 

ST1 

2,  3,  4,  5 

Kirchhoff 

intensity 

function 

-1 

"Surface"  title  (see 
DISPLAY). 

32 

to 

36 

PTI 

2,  3,  4,  5 

' 

Time 

(seconds) 

-1 

"Parameter"  title  (see 
DISPLAY). 

37 

to 

41 

XTI 

2,3,4,  5 

Nondimen- 
sional  radial 
distance,  V 

-1 

"X-axis"  title  (see 
DISPLAY  and  note  below). 

42 

to 

46 

YTI 

2,  3,  4,  5 

' 

Nondimen- 
sional  axial 
distance,  U 

-1 

"Y-axis"  title  (see 
DISPLAY  and  note  below). 

47 

MSKIP 

5 

0 

Of  the  J  values  of  intensity 
calculated  along  the  p1  (or 
v)  axis  (see  MP),  every 
MSKIP-th  value  will  be 
printed  out. 

48 

NSKIP 

- 

5 

0 

Of  the  K  values  of  intensity 

calculated  along  the  X  (or  u) 
axis  (see  NP),  every 
NSKIP-th  value  will  be 
printed  out. 

NOTE:  If  mode  =  1,  then  the  above  x,  y-titles  are  replaced  by  "radial  distance, 

rho-prime  (cm)"  and  "axial  distance,  X  (relative  to  gauss  focus)  (cm),"  respec¬ 
tively. 

N.  B.  £  means  "zero:  o  means  "oh". 

Explanation  of  Columns 

(1)  The  sequence  number  of  the  datum  stored  in  array  DATAIN1. 

(2)  Same  as  in  Table  2. 

(3)  The  symbolic  name  used  in  the  TIKIRK  program.  A  blank  variable  name  means 
that  that  part  of  DATAIN1  has  not  been  equivalenced  to  another  variable. 

(4)  Same  as  Table  2. 

(5)  Same  as  Table  2. 


V'\.  Vr  .  .  Y  ' 


I,  NP,  U,  T,  MP,  XMIN,  XMAX,  (MP  intensity  values) 
where 

I  =  1 . NP  for  each  value  of  time,  T 

NP  =  number  of  axial  points 

U  =  axial  distance  (either  u  or  x  depending  on  mode) 

T  =  dimensionalized  time 

MP  =  number  of  radial  points 

XMIN  =  minimum  radial  distance  (either  VMIN  or  RH0P1 
depending  on  mode) 

XMAX  =  maximum  radial  distance  (either  VMAX  or  RH0P2 
depending  on  mode) 

TAPE8  -  Unformatted  file  containing  the  temperature  distribution  function 
in  a  form  suitable  for  display.  The  first  record  contains  the  100 
by  3  data  array  DA  TAIN.  All  subsequent  records  have  the  same 
form  as  that  listed  above  for  TAPE7  except: 

U  =  distance  along  window  axis  (cm) 

XMIN  =  inner  window  radius  (usually  0) 

XMAX  =  outer  window  radius 

(MP  temperature  values) 

TAPE6  -  Formatted  '-'.output"  file.  This  file  contains  output  suitable  for 
printing  in  the  following  sequence: 

1)  Contents  of  DATAIN 

2)  Contents  of  DATAIN1 

3)  Array  of  x-values  used  for  Gaussian  integration  (if  IPRNT=1  and 
IKIRK  is  called). 

LL 

4)  I,  U,  XMIN,  XMAX,  T  every  r  I  value 

Intensity  (I,  J),  J=l,  MP,  5  ifIPRNT=l 

9.6  Implementing  the  Program 

9.  6.  1  GENERAL  INSTRUCTIONS 

All  of  the  TIKIRK  data  listed  on  Table  4  are  inputted  by  two  calls  to  subroutine 
GETDATA,  regardless  of  the  option  desired.  Normally,  in  the  first  call  to 
GETDATA  the  required  data  (viz,  the  first  DATAIN  array)  are  obtained  from  file 
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TAPE3  by  answering  "yes"  to  the  query  READ  DATA  FILE-3?  Then  no  changes 
are  made  to  these  data  by  returning  a  "space"  in  the  "name  value"  mode  of 
inputting  data.  On  the  second  call  to  GETDATA,  the  operator  always  answers 
"no"  to  the  query  READ  DATA  FILE-7?  and  "yes"  to  the  query  NAME-VALUE 
MODE?  At  this  point  he  enters  the  names  and  values  of  all  of  the  input  data  whose 
numerical  values  differ  from  the  default  values  as  shown  in  Table  4. 

The  above  information  is  sufficient  for  inputting  the  data  when  using  the  first 
option  (that  is,  IKIRK).  However,  for  those  circumstances  in  which  options  #2  or 
#3  are  desired,  additional  instructions  are  required  and  will  be  discussed  in  the 
next  two  sections. 

Typical  detailed  commands  which  can  be  used  to  run  all  of  the  programs  in 
both  the  Intercom  and  Batch  modes  are  listed  in  various  Attachments  after  Section 
11.  The  "A"  attachments  pertain  to  full  system  operation  in  the  Intercom  mode; 
the  "B"  attachments  exhibit  typical  control  deck  setups  used  to  operate  the  system 
in  the  Batch  mode. 

Attachment  1  shows  how  to  initiate  and  run  a  typical  TEMP5-  and  TIKIRK- 
type  calculation,  catalog  the  results  on  permanent  file  and  then  print  out  these 
results.  If  a  TEMP5  calculation  has  already  been  made  and  cataloged.  Attachment 
2  reveals  how  to  change  a  few  of  the  input  variables  so  that  a  new  temperature  dis¬ 
tribution  may  be  obtained.  If  the  TEMP5  calculation  has  been  completed  and 
cataloged,  Attachment  3  indicates  how  to  make  changes  in  the  TIKIRK  parameters 
so  that  either  a  different  portion  of  the  former  diffraction  pattern  or  a  completely 
new  diffraction  pattern  will  be  produced  with  each  change.  Attachment  4  lists  the 
commands  necessary  to  produce  the  file,  called  TAPE8,  which  contains  the  tem¬ 
perature  distribution  in  the  window.  This  file  is  required  in  order  to  plot  the 
temperatures. 

Throughout  all  of  the  attachments,  PFN  stands  for  "permanent  file  name"  and 
LFN  for  "logical  file  name." 

9.  6.  2  SPECIAL  INSTRUCTIONS  FOR  IKIRKP  OPTION 

As  mentioned  previously,  the  IKIRKP  option  will  be  employed  when  12  =  1  in 
TEMP5.  It  then  calculates  the  intensities  along  either  the  X-  or  the  p'-axes  if 
MODE  is  set  equal  to  1,  or,  along  either  the  u-  or  the  v-axes  if  MODE=2.  The 
choice  of  the  value  for  MODE  is  made,  of  course,  at  the  second  call  to  GETDATA 
when  inputting  the  data  for  the  TIKIRK  program.  Specifically,  IKIRKP  assumes 
that  the  window  temperature  is  constant  throughout  and  that  it  may  or  may  not  be 
a  function  of  time.  This  assumption  considerably  simplifies  the  integrations 
delineated  in  Eq.  (23),  Volume  I,  which  lead  to  the  intensity  function.  The  details 
of  the  mathematics  leading  to  the  evaluation  of  I'(u,  0,  t)  and  I'(0,  v,  t)  are  enumer¬ 
ated  in  Appendix  C. 
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In  addition  to  this  choice  of  12,  a  few  other  input  parameters  in  TEMP5  must 
be  fixed  to  assure  that  all  of  the  conditions  imposed  on  the  window  are  properly 
accounted  for.  If  the  window  temperature  is  to  remain  fixed  with  time  (implying 
that  there  is  no  source),  the  IQ  must  be  set  to  zero  and  UO  to  the  appropriate 
temperature.  Also,  all  H1(I)  must  equal  zero,  otherwise,  if  the  window  tempera¬ 
ture  is  allowed  to  vary  with  time,  then  IQ  must  be  set  equal  to  1,  U£  to  the  appro¬ 
priate  initial  temperature  and  all  H1(I)  to  zero.  Furthermore,  the  numerical 
value  of  a  must  be  >0.  601  (corresponding  to  a  <  0.  8325),  otherwise,  the  message 
"a*  *  2  is  out  of  range"  will  be  outputted.  The  reason  for  this  restriction  on  a  is 
given  in  Appendix  C. 

In  Table  5  we  list  the  values  that  should  be  used  for  certain  TIKLRK  input 
parameters  whenever  IKIRKP  is  employed. 


Table  5.  Values  Used  for  Certain  TIKIRK  Input  Parameters  Whenever  IKIRKP 
is  Employed. 


MODE 

1 

Intensity  Function  Wanted 

I(X,  0,  t) 

1(0,  p',  t) 

MP 

1 

* 

NP 

* 

1 

XI 

* 

|xo| 

.  *  X 

w  to 

RHOP2 

>]< 

MODE 

Intensity  Function  Wanted 

MP 

NP 

UMIN 

UMAX 

VMAX 

2 

I'(u,  0,  t) 

1 

>Jc 

* 

- 

I'(0,  v,  t) 

i 

0 

- 

* 

-‘'Means  that  operator  should  insert  whatever  value  he  desires. 
-Means  that  that  particular  parameter  is  of  no  consequence. 


The  commands  listed  in  the  attachments  apply  equally  as  well  to  the  IKIRKP 
option.  The  only  responses  which  the  operator  will  change  will  be  those  special 
values  of  the  input  parameters  discussed  above. 

9.7  The  IKIRK1  Option  and  an  Alternate  TIKIRK  Package 

The  IKIRK1  option  #3  is  not  contained  in  the  TIKIRK  program  as  described  in 
Sections  9.  1  through  9.  6.  However,  a  second  TIKIRK  program  package  has  been 
assembled  which  not  only  offers  option  #3  but  incorporates  ft  1  and  #2  as  well. 

Thus,  it  can  be  substituted  for  the  original  program,  if  desired.  This  package 
consists  essentially  of  four  parts,  each  one  to  be  stored  in  the  computer  under  its 
own  PFN.  The  first  part  contains  a  main  program,  also  called  TIKIRK,  plus  those 
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function  subprograms  and  subroutines  making  up  the  "core  package  listed  in 
Section  9. 3  (viz,  PHI,  JT,  Jl,  RTAPE3,  ALI,  ATSE,  GETDATA,  SSWTCH, 

RJUST  and  PRT).  This  "core  package"  will  be  utilized  by  the  last  three  parts. 

The  main  program,  called  TIKIRK,  is  a  slightly  modified  form  of  the  main  pro¬ 
gram  TIKIRK  first  introduced  in  Section  8.3.  As  before,  its  principal  role  is  to 
call  the  other  subroutines  and  subprograms  into  execution.  Since  this  first  part 
would  play  a  major  role  in  computing  the  diffraction  pattern  of  the  transmitted 
beam  and  call  upon  the  various  options,  it  too  has  been  given  the  PFN  of  TIBX  by 
us,  whenever  it  has  been  used. 

The  next  three  parts  pertain  to  options  #3,  #1,  and  #2  in  that  order  and  we 
have  assigned  them  their  own  particular  PFN.  Each  one  of  these  parts  includes 
a  major  function  subroutine  which  is  also  given  the  name  IKIRK.  The  modified 
TIKIRK  main  program  mentioned  above,  summons  a  given  option  by  putting  in  a 
call  to  IKIRK.  Which  IKIRK  (and  its  concomitant  subroutines)  gets  executed 
depends  upon  which  one  was  attached  just  previous  to  the  call.  (It  should  be  noted 
that  in  this  alternate  TIKIRK  package,  the  control  parameter  12  no  longer  plays 
any  role  in  determining  which  option  will  be  utilized. )  This  procedure  is  demon¬ 
strated  in  Attachment  5,  which  lists  typical  control  commands  for  running  this 
new  TIKIRK  package  under  either  Intercom  or  Batch  mode  of  operation: 

The  second  part,  as  noted  above,  pertains  to  option  #3  (IKIRK1).  Besides  its 
major  function  subroutine  IKIRK,  it  contains  the  following  three  subroutines: 

(1)  FREAL1  -  computes  the  products  of  the  functions  fwfx  and  fwfy  (see  Eqs. 
23-27,  Volume  I).  It  has  4  entry  points  since  actually  4  functions  have  to  be 
integrated. 

(2)  DCADRE  -  an  integration  subroutine  from  the  IMSL  set  of  routines.  It 
requires  the  external  function  subroutine  FREAL1  as  one  of  the  arguments. 

(3)  UERTST  -  required  by  DCADRE  to  output  error  messages. 

We  have  stored  this  second  part  under  the  PFN  of  IK1BX. 

The  third  part  pertains  to  option  #1,  which  was  also  referred  to  as  IKIRK  in 
Sections  9.  2-9.  6.  Besides  its  major  function  subroutine,  called  IKIRK,  it  contains 
the  two  subroutines  DQG24A  and  DQG24B,  mentioned  in  Section  9.3.  To  this  part, 
we  have  given  the  PFN  of  IKBX. 

The  fourth  part  contains  option  #2  (IKIRKP).  Besides  its  major  function  sub¬ 
routine,  called  IKIRK,  it  utilizes  the  four  subroutines  COMPUTE,  JI,  BESJF  and 
BESJ,  previously  mentioned  in  Section  9.  3.  We  have  given  the  PFN  of  IKPBX  to 
this  part. 

The  Fortran  listings  for  the  modified  TIKIRK  program  -  the  three  major 
function  subroutines  which  are  each  called  IKIRK  and  which  lead  into  each  of  the 
three  options,  as  well  as  the  subroutines  FREAL1,  DCADRE  and  UERTST  —  are 
given  in  Appendix  D.  All  of  the  other  subprograms  and  subroutines  mentioned 
above  are  the  same  as  those  listed  in  Appendix  B. 
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It  has  already  been  noted  that  option  #3  HKIRK1)  is  exceedingly  slew.  How¬ 


ever,  it  may  be  possible  to  speed  it  up  by  increasing  the  absolute  and  relative 

—3  -  6 

errors  which  are  presently  set  at  10  and  10  ,  respectively.  In  addition,  the 


maximum  value  of  the  error  parameter  IER  in  DCADRE,  as  well  as  the  maximum 
estimated  bound  on  the  absolute  error  in  integration,  is  always  printed  out. 

Whenever  the  results  of  IKIRK1  disagree  with  the  results  of  IKIRK  (option  #1), 
those  of  the  former  should  be  preferred  because  of  its  greater  inherent  accuracy. 


10.  DISPLAY  PROGRAM 


10.1  Introductory  Remarks 


Program  DISPLAY  is  a  general  purpose  program  for  displaying  two-dimen¬ 
sional  arrays  of  numbers  which,  intuitively  at  least,  can  be  thought  of  as  a  surface 
which  has  been  sampled  over  an  evenly  spaced  grid.  The  array  size  is  essentially 
limited  (by  computer  storage  capabilities)  to  a  maximum  of  100  by  100.;  there  is 
no  minimum  size  other  than  the  practical  one  that  it  does  not  make  good  sense  to 
use  a  program  such  as  this  to  display  a  single  point.  However,  it  may  make  sense 
to  use  the  program  to  display  one-dimensional  arrays;  for  example,  an  array  of 
size  1  by  n.  As  will  be  explained  in  detail  later,  three  types  of  display  are  offered 
by  the  program:  contour  map,  perspective  view,  and  multiple  cross  sections 
(parallel  to  two  rectangular  coordinate  axes  only).  Moreover,  the  program  is 
designed  to  display  several  such  arrays  at  one  RUN  with  the  idea  in  mind  that 
these  arrays  represent  the  evolution  in  time  (or  with  some  other  parameter)  of  a 
function  of  two  variables. 

In  addition  to  merely  plotting  the  arrays  in  one  or  more  of  the  above  mentioned 
forms,  this  program  labels  all  plots  (provided  the  labeling  information  is  furnished) 
and  lists  pertinent  experimental  parameters  (if  desired).  Most  of  this  labeling 
information  is  supplied  in  one  or  more  data  arrays,  the  structure  of  which  has  been 
described  in  DA  TAIN  (see  Section  8.8).  The  rest  of  the  labeling  information  is 
provided  in  the  records  which  contain  the  array  rows. 

Program  control  is  afforded  by  a  set  of  input  "commands"  which  are  supplied 
by  input  cards.  The  program  interprets  each  command,  obeys  each  command, 
and  terminates  when  all  commands  have  been  followed  (or  when  time  runs  out). 

Before  the  program  is  used,  it  must  be  somewhat  "tailored  to  fit."  This  is 
accomplished  through  the  use  of  a  fixed  number  of  input  data  which  must  be  sup¬ 
plied  in  entirety.  Examples  of  such  data  are:  plot  id,  maximum  plot  size,  array 
of  indices  for  obtaining  labeling  information,  etc.  A  complete  list  of  such  data  is 
provided  in  Section  10.  2. 
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The  program  allows  for  selection  of  the  starting  "time"  and  its  increment 
assuming  that  the  surface  to  be  displayed  is  a  function  of  "time."  ("Time"  may  be 
any  suitable  parameter. )  A  surface  cross-section  may  be  displayed  as  a  function 
of  time  on  a  single  coordinate  frame. 

10.2  General  Instruclions 

The  surfaces  to  be  displayed  are  assumed  to  be  stored  on  file  TAPE3  in  unfor¬ 
matted  records  where  each  logical  record  consists  of  one  "row"  of  the  mp  x  np 
array  of  floating  point  numbers  representing  the  surface.  In  addition,  each  record 
contains  the  information:  row  number  (I),  total  number  of  rows  (NP),  y-value  to 
be  associated  with  that  row  (Y),  parameter  value  (if  any)  to  be  associated  with  (T), 
number  of  samples  in  the  row  (MP),  x-value  to  be  associated  with  the  first  element 
of  the  row  (XMIN),  x-value  to  be  associated  with  the  last  element  of  the  row 
(XMAX).  Specifically,  each  record  must  have  the  form: 

I,  NP,  Y,  T,  MP,  XMIN,  XMAX,  (F(I,  J;T),  J  =  l,  MP) 

where  F(- ,  •  ;T)  is  the  function  to  be  displayed.  Thus,  for  each  value  of  the  param¬ 
eter  T,  NP  logical  records  represent  one  "surface."  Several  such  "surfaces" 
corresponding  to  several  values  of  T  may  be  stored  on  file  TAPE3  and  exhibited  by 
DISPLAY. 

In  addition  to  the  above  mentioned  "surfaces,"  file  TAPE3  may  contain  any 
number  (including  0)  of  "  information"  records,  the  contents  of  which  include  infor¬ 
mation  (such  as  experimental  parameters)  which  should  be  printed  on  each  plot  and 
plot  titles.  Each  such  information  record  must  be  an  array  (which  will  be  called 
here  DATAIN)  of  the  form  DATAIN(100,  3).  Thus,  each  datum  is  represented  by 
three  parts  called  (in  the  order  in  which  they  appear)  VALUE,  NAME,  and 
FORMAT.  DATAIN  is  stored  in  unformatted  form.  VALUE  is  the  numerical  or 
character  string  value  of  the  datum,  NAME  is  a  character  string  of  up  to  ten 
characters  which  may  be  used  to  identify  the  datum,  while  FORMAT  is  a  format 
code  number  (-1,  0  or  1)  which  specifies  whether  the  datum  value  is  to  be  inter¬ 
preted  as  a  character  string  (-1),  integer  (0),  or  floating  point  number  (1).  (See 
GETDATA,  Section  8.  8.  4. ) 

These  DATAIN  records  (if  any)  must  be  the  first  records  on  file  TAPE3, 

Titles  (if  any)  must  appear  only  in  the  last  DATAIN  record. 
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The  following  data  cards  must  be  inputted  to  tailor  the  program  for  the  user's 
particular  application.  The  number  in  parenthesis  in  front  of  each  datum  name  is 
the  card  column  at  which  to  start  the  datum.  The  number  in  parenthesis  following 
the  datum  is  the  default  value  of  the  datum.  If  the  default  value  is  to  be  used, 
leave  the  corresponding  card  field  blank. 

Data  Card  #  1 


(1) 

XMAX 

(100.) 

Maximum  plot  length  in  inches. 

(11) 

YMAX 

(12.) 

Maximum  plot  width  in  inches. 

(21) 

PPI 

(10.) 

Number  of  points /inch  for  contours. 

(31) 

TICU 

(.5) 

Number  of  inches  between  tic-marks  for  user 

defined  x-y  plots. 

(41) 

XLEN 

(10.) 

x-y  plot  coordinate  frame  x-size. 

(51) 

YLEN 

(8.) 

x-y  plot  coordinate  frame  y-size. 

(61) 

SC  A  LEX 

(1.) 

x-y  plot  x-scale,  that  is,  no.  ofx-units/ 
tic  -mark. 

(71)  SCALEY 

Data  Card  #2 

(1.) 

x-y  plot  y-scale,  that  is,  no.  of  y-units/ 
tic -mark. 

(1) 

XMIN 

(0.)  ) 

The  minimum  x-value  and  y-value  to  be  plotted 

(11) 

YMIN 

(0.)  ) 

for  user -defined  x-y  coordinate  frame  x-y  plots. 

(21) 

NAME 

(GIANINO) 

User's  name  to  appear  on  plot. 

(31)  PROS.  NO. 

Data  Card  #3 

(2347) 

4-digit  user's  problem  number. 

This  card  provides  information  for  the  two-dimensional  array  INDEX,  which 
is  the  index  of  locations  for  labeling  information  assumed  to  be  contained  in  the 
last  DATAIN  on  the  file  containing  the  surfaces  to  be  plotted.  INDEX  consists  of 
pairs  of  numbers  wherein  the  first  number  is  the  starting  location  of  the  label  and 
the  second  number  is  the  length  of  the  label.  If  there  is  no  such  data,  then  this 
card  may  be  left  blank  and  the  labeling  will  not  be  done.  If  the  letter  D  is  placed 
in  column  1  of  this  card,  the  default  values  shown  below  are  used.  In  addition  to 
the  values  of  INDEX,  the  field  starting  in  column  41  should  contain  the  number  of 
DATAIN  arrays  on  TAPE3. 


(1) 

INDEXU,  1) 

(1) 

Surface  title. 

(6) 

INDEX(1,  2) 

(30) 

Surface  title  length  (characters). 

(ID 

INDEX(2,  1) 

(4) 

Parameter  title. 

(16) 

INDEX(2,  2) 

(30) 

Parameter  title  length. 

(21) 

INDEX(3,  1) 

(7) 

x-title. 

(26) 

INDEX(3,  2) 

(30) 

x-title  length. 

(31) 

INDEX(4,  1) 

(10) 

y-title. 

(36) 

INDEX(4,  2) 

(30) 

y-title  length. 

(41) 

NDA 

(2) 

Number  of  DATAIN  arrays  on  TAPE3 

INDEX  information  is  taken  from  the  last 
DATAIN  array. 

We  employ  the  following  numerical  values  on  data  card  #3  for  displaying  the 
intensity  (using  TAPE7)  and  the  temperature  (using  TAPE8): 

for  TAPE 7:  27  29  32  14  37  33  42  32 

for  TAPES:  72  20  67  13  83  24  88  31  1 

Data  Cards  #4A,  4B,  etc. 

These  cards  contain  the  sequence  numbers  of  data  in  DATAIN  which  are  to  be 
listed  at  the  beginning  of  each  run  of  DISPLAY.  The  sequence  numbers  pertaining 
to  the  TEMP5  parameters  have  been  listed  in  Table  2,  while  those  pertaining  to 
the  TIKI.RK  parameters  have  been  listed  in  Table  4.  There  must  be  one  card  for 
each  DATAIN  array  (see  the  last  entry  number  in  data  card  #3  above).  For  exam¬ 
ple,  in  our  particular  data  card  #3  above  for  the  TAPE7  case,  the  default  value  of 
2  is  implied  as  the  NDA  entry,  signifying  that  2  cards  must  be  used.  The  first 
card  contains  the  sequence  numbers  of  the  TEMP5  parameters,  while  the  second 
contains  the  sequence  numbers  of  the  TIKIRK  parameters.  The  objective  is  to 
list  both  sets  of  parameters  on  the  plots.  In  data  card  #3  above  for  the  TAPE8 
case,  the  NDA  value  of  1  was  employed,  indicating  that  only  one  card  is  to  be 
used,  viz,  that  containing  the  sequence  numbers  of  the  TEMP5  parameters  which 
are  to  be  listed  on  the  plots. 

The  sequence  numbers  start  in  columns  1,  3,  5,  7, . for  a  total  of  up  to  40 

indices  per  card.  The  default  is  a  blank  card.  When  the  default  is  used,  no 
DATAIN  data  is  to  be  listed. 

The  above  cards  comprise  the  mandatory  data  cards.  The  remaining  cards 
are  the  "command"  cards  which  indicate  what  kinds  of  plots  are  wanted. 


10.4  Command  Cards 

As  stated  previously,  the  DISPLAY  program  has  the  capability  of  3  different 
types  of  plots,  viz,  multiple  x-y,  perspective  view  and  contour  map.  Conse¬ 
quently,  there  is  a  command  to  control  each  type  and  they  are  indicated  by  the 
keywords  PLOT,  PERSPECTIVE  and  CONTOUR,  respectively.  The  abbreviations 
PL,  P  and  C,  respectively,  may  also  be  used.  These  keywords  are  modified  by 
certain  parameters  p^.  We  now  enumerate  all  of  the  modifying  parameters  of 
these  command  keywords  and  their  meanings: 

(1)  Command:  PLOT  <p1(  p2,  p3,  P4,  P5,  pg) 

The  parameters  p^  p2,  p4  and  pg  are  integers.  In  the  process  of  creating  a 
TAPE7  or  TAPE8  file,  up  to  ten  times  had  to  be  chosen  at  each  of  which  a  temper¬ 
ature  or  an  intensitj'  distribution  was  calculated.  These  ten  times  were  designated 

by  the  datum  names  Tl,  T2,  _ ,T10  (see  Table  4).  The  first  two  parameters 

in  the  above  command  allow  for  control  in  selecting  which  times  are  to  be  chosen 
in  the  DISPLAY  program.  For  example,  the  above  command  directs  that  the 
appropriate  data  corresponding  to  every  Pj-th  time  value  is  to  be  displayed,  start¬ 
ing  with  the  p2-th  value  (that  is,  Tp2). 

Recall  that  both  the  temperature  and  the  intensity  can  be  plotted  either  as  a 
function  of  radial  distance  or  of  axial  distance.  The  parameter  pg  can  account  for 
either  of  these  two  types  of  plots  by  taking  on  the  code  symbol  X  when  it  is  a  radial 
distance  plot  that  is  desired,  or,  the  code  symbol  Y,  when  the  axial  distance  plot 
is  wanted. 

For  a  temperature  calculation,  the  TEMP5  program  sets  up  a  net  of  82  tem¬ 
perature  points  in  the  radial  direction  (r),  extending  from  the  inner  to  the  outer 
window  radius,  and  22  temperature  points  in  the  axial  direction  (z),  extending  from 
the  entrance  to  the  exit  faces.  Consequently,  there  are  22  cross-sectional  surfaces 
of  T  versus  r  (that  is,  22  type-X  plots)  and  82  cross-sectional  surfaces  of  T  versus 
z  (that  is,  82  type-Y  plots).  Thus,  depending  on  the  symbol  given  by  pg,  the  above 
PLOT  command  directs  that  on  one  coordinate  frame  every  p4-th  T -versus -dis¬ 
tance  surface  is  to  be  plotted  starting  with  the  pg-th  surface. 

On  the  other  hand,  for  intensity  calculations,  the  TIKIRK  program  establishes 
a  net  in  the  far  field  consisting  of  NP  intensity  points  along  the  axial  line  (X), 
extending  from  some  minimum  to  some  maximum  axial  distance,  and  MP  intensity 
points  in  the  radial  direction  (p1),  starting  from  the  axial  line  and  going  perpendic¬ 
ular  to  it.  Consequently,  there  are  NP  cross-sectional  surfaces  of  I  versus  r 
(that  is,  NP  type-X  plots)  and  MP  cross-sectional  surfaces  of  I  versus  z  (that  is, 
MP  type-Y  plots).  Again,  depending  on  the  symbol  given  by  p3,  the  PLOT 


command  directs  that  every  p. -th  I -versus -distance  surface  is  to  be  plotted  on 

**  * 

one  coordinate  frame  starting  with  the  p^-th  surface. 

The  parameter  p^  can  take  on  any  one  of  the  following  code  symbols:  NA, 

NAS,  NE,  NES,  DN  or  DNS.  These  symbols  will  be  explained  in  Section  10.4, 
paragraph  (4). 

The  default  values  for  the  above  6  parameters  are:  Pj  =  P2  =  P4  =  P5  = 
pg  =  X  and  p6  =  NA. 

(2)  Command:  PERSPECTIVE  (p^,  p2,  P3,  P4) 

The  parameters  p^  and  p2  are  the  same  as  in  the  PLOT  command  above. 

The  numerical  value  p3  is  the  magnitude  of  the  view  angle  in  degrees,  measured 
from  the  plane  of  the  window's  exit  face.  Parameter  p4  can  take  on  the  code 
symbols  NA  or  NE  only. 

The  default  values  are:  p1  =  p2  =  1,  P3  =  45  and  p4  =  NA. 

(3)  Command:  CONTOUR  (p^,  P2,  p^,  P4) 

The  parameters  p^  and  p2  are  the  same  as  in  the  PLOT  command  above.  The 
integer  pg  refers  to  the  number  of  contour  levels  of  constant  temperature,  or 
intensity,  that  are  to  be  plotted,  up  to  a  maximum  of  50.  Parameter  p4  can  take 
on  any  one  of  the  code  symbols  NA,  NE  or  DN. 

The  default  values  are:  p1  =  p2  =  l,  p3  =  10  and  p4  =  NA. 

Note  that  in  the  above  three  commands,  parameters  are  separated  by  commas. 
Missing  parameters  are  indicated  by  commas  (with  no  blank  spaces  between 
commas),  or  by  a  right  parenthesis.  If  the  keyword  only  appears,  then  default 
parameters  are  assumed. 

(4)  Meaning  of  Code  Symbols  NA,  NAS,  NE,  NES,  DN  and  DNS 

The  letter  N  means  that  the  functions  to  be  displayed  are  first  normalized 
before  being  plotted,  that  is,  the  transformation 

z  —  ; - - - : — r-  (z  -  zmin) 

(zmax  -  zmm) 

(where  z  refers  to  the  value  of  the  ordinate)  is  made,  where  the  value  of  c  =  100 
for  CONTOUR  plots;  for  PERSPECTIVE  plots,  it  depends  on  the  size  of  the  array 
to  be  displayed.  The  latter  N  has  a  slightly  different  connotation  for  X-Y  plots. 
Here,  it  means  that  the  array  is  scaled  such  that  it  will  fit  in  a  coordinate  frame 
with  nice  scale  values.  The  second  letter  A  or  E  indicates  whether  the  normaliza¬ 
tion  is  over  all  (A)  surfaces  or  whether  each  (E)  surface  is  normalized  separately, 
that  is,  the  zmax,  zmin  are  searched  for  over  all  arrays  or  over  each  array 
indi\  Idually.  The  letters  DN  mean  don't  normalize,  that  is,  do  not  do  the  above 

There  is  a  circumstance  in  which  the  above  meaning  for  p4  does  not  apply.  See 
Section  10.  4,  paragraph  (4). 
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transformation.  Note  that  for  PERSPECTIVE  displays  normalization  always 
occurs.  Therefore,  DN  should  never  be  used.  This  is  done  mainly  to  force  the 
plot  to  remain  within  the  plot  paper  boundaries.  Again,  for  X-Y  plots  the  conno¬ 
tation  is  slightly  different,  in  that  in  this  case  the  user  must  provide  plot  scale 
values. 

The  letter  S  indicates  that  there  will  be  superimposed  on  a  single  coordinate 
frame  many  time  curves  (as  chosen  by  p^  and  p2>  for  a  given  cross-section, 
rather  than  having  several  cross-sections  appear  on  a  single  frame  for  one  par¬ 
ticular  time.  Since  the  time  variable  can  have  as  many  as  10  values,  then  there 
can  be  as  many  as  10  time  surfaces,  that  is,  curves,  superimposed  on  one  frame. 
If  it  is  desired  to  have  one  coordinate  frame  for  each  value  of  time  that  has  been 
utilized,  then  the  S  should  be  omitted.  This  situation  definitely  pertains  to 
CONTOUR  and  PERSPECTIVE  plots. 

When  NA  or  NAS  is  used,  the  values  assigned  to  SCALEX,  SCALEY  on  data 
card  #1  and  XMIN,  YMIN  on  data  card  #2  are  ignored,  so  then  the  computer 
selects  values  which  are  more  appropriate  for  the  ranges  of  ordinate  and  abscissa 
involved.  When  NE  or  NES  is  used,  the  operator  must  select  his  own  values  for 
these  data. 
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For  X-Y  plots,  it  is  recommended  that  either  NA  or  NAS  be  used.  If  NE  or 
NES  is  employed  instead,  the  operator  should  beware  of  erroneous  coordinate 
scaling  by  ensuring  that  the  values  for  any  subsequent  maxima  and  minima  do  not 
exceed  those  of  the  initial  maximum  and  minimum.  If  the  S  is  used  in  these  plots, 
then  parameter  p4  has  no  effect  since  several  surfaces  corresponding  to  several 
time  values  at  one  cross-section  are  to  be  plotted,  rather  than  several  cross- 
sections  for  one  time  value. 

If  no  command  card  is  included,  then  the  default  command  of  PERSPECTIVE 
is  assumed.  Several  commands,  one  per  card,  may  be  given  for  any  single  run 
of  the  program.  For  example,  a  perspective  display  might  be  followed  by  a  con¬ 
tour  display  or  several  perspective  displays  from  several  view  angles  might  be 
called  for  by  a  sequence  of  PERSPECTIVE  commands. 

Typical  detailed  commands  used  for  running  the  DISPLAY  program  in  the 
Batch  mode  only  are  listed  in  Attachment  6.  We  do  not  run  this  program  in  the 
Intercom  mode  because  usually  there  is  not  sufficient  space  allocated  on  Intercom 
to  allow  the  program  to  run  to  completion. 

10.5  Examples  of  the  Use  of  the  Three  Different  Plotting  Commands 

In  Section  6  of  Volume  I,  we  presented  many  examples  of  the  three  different 
kinds  of  plots  that  program  DISPLAY  was  capable  of  generating,  listing  in  the 
figure  captions  the  plot  commands  which  controlled  the  actual  plotting  of  these 
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curves.  We  are  now  in  a  position  to  understand  and  to  analyze  how  these  com¬ 
mands  control  the  graphing. 

For  example,  in  Figure  3  the  command  is  PLOT  (1,  1,  Y,  100,  1,  NAS).  The 
keyword  PLOT  indicates  that  a  multiple  X-Y  plot  is  involved.  The  first  two 
parameters  (1,  1)  mean  that  every  time  value  available  is  to  be  utilized,  starting 
with  time  value  #1  (that  is,  Tl).  In  this  example,  there  were  9  time  curves  used 
(T1  through  T9),  which  are  shown  on  the  right  hand  side  of  the  figure.  Whether 
the  curves  drawn  will  represent  temperature  —  or  intensity  —  versus  distance 
depends  on  whether  the  permanent  file  attached  previously  to  the  PLOT  command 
was  a  TAPE8  -  or  TAPE7  —  type  file,  respectively.  For  this  particular  case,  it 
was  a  TAPE 8  file.  The  third  parameter  (Y)  signifies  that  the  abscissa  is  the  axial 
distance  through  the  window.  The  fourth  and  fifth  parameters  (100,  1)  signify  that 
every  100th  T  -  versus  -  z  surface  is  to  be  plotted,  starting  with  the  first  (that  is, 
starting  with  the  surface  existing  at  zero  radial  distance,  which  is  through  the 
center  of  the  window).  Since  there  are  only  82  T  -  versus  -  z  surfaces,  then 
setting  p4  =  100  can  be  seen  as  a  ploy  for  selecting  only  the  first  surface  (p5  =  1) 
to  the  exclusion  of  all  others.  In  other  words,  the  selection  of  any  value  of  p4 
greater  than  82  would  have  ensured  the  same  result.  The  sixth  parameter  (NAS) 
indicates  that  the  normalization  is  to  occur  over  all  surfaces  and  that  all  of  the  (9) 
time  curves  are  to  be  superimposed  on  one  coordinate  frame. 

In  Figures  4  and  5  the  same  kind  of  information  was  desired  except  that  the 
T  -  versus  -  7  profiles  were  to  occur  at  constant  radial  distances  of  15  and  30  cm, 
respectively.  Since  these  distances  represent  ~50  percent  and  ~100  percent  of  the 
radial  distance  up  the  window,  the  parameter  p^  was  chosen  to  be  equal  to  41  and 
81,  respectively.  (Actually,  because  of  the  way  the  82  radial  positions  were 
chosen,  p^-values  of  1,  41  and  81  represent  distances  of  0.  6  percent,  49.4  percent 
and  99.  4  percent  up  the  radial  axis,  respectively. ) 

In  Figure  6  we  wanted  to  superimpose  plots  of  T  -  versus  -  z  at  the  above  3 
radial  positions  at  the  fixed  time  of  5  sec,  which  is  the  8th  time  value.  The  p^,  Pg 
pair  of  4,  8  signifies  that  every  4th  time  value  is  to  be  plotted,  starting  with  T8. 

As  above,  this  is  a  ploy  to  select  only  T8  and  to  exclude  the  others,  since  there 
are  only  9  times  available.  Any  p^  >  2  would  have  produced  the  same  result.  The 
p4,  p5  pair  of  40,  1  means  that  every  40th  surface  is  to  be  plotted,  starting  with 
surface  #1.  Thus,  surfaces  #1,  41  and  81  are  plotted.  Because  we  want  these  3 
surfaces,  properly  normalized,  to  be  superimposed  on  one  coordinate  frame  at 
the  one  fixed  time,  we  leave  off  the  letter  S  in  the  parameter  p6< 

Temperature  is  plotted  against  radial  distance  for  the  same  model  problem  in 
Figure  7  (hence,  pg  =  X).  Here,  we  wanted  to  plot  all  21  T  -  versus  -  r  surfaces 
(therefore,  p4  =  p,.  =  1)  at  1  and  5  sec.  (The  reason  for  there  being  only  21  rather 
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than  22  surfaces  is  due  to  the  way  we  chose  the  points;  the  22nd  point  falls  outside 
of  the  window.)  Thus,  we  choose  p^  and  p2  to  be  3  and  5,  respectively,  meaning 
that  every  3rd  time  is  selected,  starting  with  T5  (  =  1  sec).  As  before,  dropping 
the  letter  S  in  parameter  pg  ensures  one  coordinate  frame  for  each  time  chosen. 

Figures  8  and  9  are  examples  of  T  -  versus  -  r  temperature  plots  at  approxi¬ 
mately  1/4  and  3/4  of  the  way  through  the  window  (hence,  Pg  =  6  and  16),  respec¬ 
tively.  Note  that  setting  p^  =  p2  =  1  assures  that  all  times  are  accounted  for  and 
are  superimposed  because  of  the  S  in  Pg.  Letting  p^  be  greater  than  22  (here,  100) 
assures  that  only  that  one  particular  surface  will  be  plotted. 

Figures  10  and  11  pertain  to  the  annular-shaped  window.  Setting  Pg  =  11  and 
21  results  in  plots  for  T  -  versus  -  r  surfaces  through  the  middle  and  at  the  exit 
face  of  the  window,  respectively. 

Figures  12-14  show  multiple  X-Y  plots  for  intensity.  In  Figure  12  we  wanted 
every  time  included  (hence,  p^  =  Pg  =  1)  of  T  -  versus  -  axial  distance  plots  (hence, 
P3  =  Y)  along  the  axis  (Pg  =  1),  with  no  other  radial  distances  included  (p^  =  100); 
and  all  of  the  time  curves  are  to  be  superimposed  (hence,  S  in  pg).  In  this  partic¬ 
ular  example,  we  let  MP  =  100.  Thus,  any  p^  -  value  >100  would  have  ensured 
that  only  those  surfaces  along  the  axis  would  be  used. 

The  axial  range  is  covered  by  NP  points;  in  our  particular  example,  NP  =61. 
In  Figure  13  we  wanted  to  have  superimposed  time  plots  of  I  -  versus  -  p1  (hence, 

P3  =  X)  at  the  center  of  the  axial  range  only  (hence,  p^  =  100,  pg  =  31).  At  a  time 
of  3  sec  (that  is,  p2  =  7),  the  Gaussian  focal  point  occurs  at  a  distance  of  830  m 
along  the  axis  (corresponding  to  Pg  =  34).  Figure  14  displays  the  I  -  versus  -  p' 
graph  for  this  time  only. 

The  plot  command  for  the  PERSPECTIVE  graphs  of  Figures  15  and  16  use  the 
default  values.  Even  though  a  3D  plot  was  drawn  for  all  9  times,  only  a  few  repre¬ 
sentative  cases  are  presented  here. 

For  contour  plots  we  wanted  the  time  values  of  2  and  8  sec  only.  Hence, 

Pj  =  3  and  p2  =  6  in  Figures  17  and  18.  Twenty  contour  lines  are  shown  (thus, 

P3  =  20).  Since  we  wanted  each  one  of  these  contours  to  be  labeled  with  its  dimen¬ 
sioned  temperature  value,  rather  than  a  normalized  value,  we  chose  the  code  sym¬ 
bol  DN  for  p‘4. 

In  summary,  we  can  say  that  program  DISPLAY  is  used  mainly  to  provide  a 
"readable"  output  of  functions  of  two  variables.  The  PERSPECTIVE  plot  furnishes 
a  very  good  general  "view"  of  the  function  in  question.  CONTOUR  also  provides  a 
good  view  as  well  as  quantitative  knowledge  of  the  function  values.  PLOT  (either 
X-cross-sections  or  Y-cross-sections)  supplies  the  most  quantitative  output  but 
usually  the  least  satisfactory  overall  "view"  of  the  function.  It  should  be  pointed 
out  that  PLOT  can  be  used  for  functions  of  one  variable. 
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10.6  Principal  Functions  and  Subroutines 


The  various  operations  associated  with  the  DISPLAY  program  are  carried  out 
by  the  following  subprograms,  subroutines  and  functions: 

(1)  DISPLAY  -  the  main  program  which  calls  the  other  subroutines  and 
functions  into  execution. 

All  of  the  following  are  subroutines: 


(2) 

PLOTT1 

-  draws  and  titles  coordinate  frame.  It  also  does  the 
scaling,  if  it  isn't  supplied  by  the  user. 

(3) 

PARMPLT 

-  prints  out  parameters  at  the  beginning  of  each  plotting  run. 

(4) 

FILL 

-  selects  data  from  DATAIN  and  places  it  in  a  2D  array 
which,  in  turn,  is  passed  to  PARMPLT  for  printing. 

(5) 

CFRAME 

-  draws  and  labels  the  coordinate  frame  for  contour  and 

perspective  plots. 

(6) 

INTERP 

-  converts  user  commands  and  command  parameters  to 
subroutine  control  arguments;  It  also  calls  subroutine 
NUMB  to  decode  parameters. 

(7) 

NUMB 

-  used  by  INTERP  to  convert  display  code  numbers  in  the 
commands  to  the  proper  internal  representation  of 
numbers  in  the  computer. 

(8) 

ARROW 

-  draws  the  arrow  used  above  the  rectangular  coordinate 
frame  in  perspective  plots. 

(9) 

APLACE 

-  locates  arrow-head  for  perspective  view  angle. 

(10) 

RD1 

-  reads  TAPE3  and  fills  up  appropriate  arrays  to  be  plotted. 
Finds  maxima  and  minima  of  the  surfaces  to  be  plotted, 

if  necessary. 

(ID 

CLEV 

-  returns  various  equis paced  contour  levels. 

(12) 

SKIP 

-  skips  over  a  designated  number  of  records  (that  is, 
"surfaces")  while  reading  TAPE3. 

(13) 

FACE 

-  a  system  library  program  which  draws  the  PERSPECTIVE 
plots.  It  also  uses  the  library  subroutines  HIDE,  DRAW, 
SORT  and  PARFIT. 

(14) 

CONTOR 

-  a  system  library  program  which  draws  the  CONTOUR 
plots.  It  also  calls  the  library  subroutines  NEIBOR  and 
FOUR  as  well  as  the  Calcomp  plot  subroutines. 

(15) 

RJUST 

-  right  adjusts  all  numerical  input  data.  Its  Fortran  listing 
is  given  in  Appendix  A.  9. 

(16) 

SYMBL 

-  converts  a  floating  point  number  using  a  G10.  3  format  to 
a  display  code. 
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The  complete  Fortran  listings  for  each  of  the  above  programs,  subroutines 
and  functions  are  given  in  Appendix  E. 

10.7  Algorithms 

10.  7.  1  MULTIPLE  X-Y  DISPLAYS 

The  PLOT  display  graphs  either  f(* ,  yi)(P3  =  X)  or  f(xi(  -MPg  =  Y)  for  selected 
values  of  y.  or  xi  determined  by  command  parameters  p4  and  p0.  Specifically: 

i  =  p5  +  (k  -  1)  •  p4  (k  =  1, . )  . 

Subroutine  PLOTT1  is  called  after  each  "surface"  array  has  been  filled  by 
subroutine  RD1.  One  of  two  types  of  coordinate  frames  are  then  drawn  by  PLOTT1 
depending  on  command  parameter  Pg.  If  Pg  =  NA  or  NE,  the  scaling  is  done  by 
the  Calcomp  subroutine  SCALE  and  the  coordinate  axes  are  drawn  by  Calcomp 
subroutine  AXIS.  If  p0  =  DN,  then  the  user-provided  scale  is  used  and  the  coord¬ 
inate  frame  is  drawn  by  a  set  of  statements  within  PLOTT1. 

After  the  coordinate  frame  has  been  drawn,  the  individual  surface  "cross- 
sections"  represented  by  f(- ,  yL>  or  f(x.,  • )  are  plotted  as  continuous  curves.  Each 
curve  is  labeled  with  a  symbol  and  symbol  table. 

10.  7.  2  PERSPECTIVE  DISPLAY 

For  perspective  displays  the  surface  is  always  normalized  in  such  a  way  that 
the  display  will  approximately  fill  the  same  plot  area  regardless  of  the  size  of  the 
surface  array.  The  view  elevation  angle  is  fixed  at  approximately  45  degrees 
while  the  view  azimuthal  angle  can  be  any  value  (given  by  the  parameter  pg  of  the 
PERSPECTIVE  command).  To  produce  a  better  display,  the  surface  is  always 
bordered  by  zeroes. 

The  complete  perspective  display  is  produced  by  calls  from  the  main  program 
to  four  subroutines  (which  may,  in  turn,  call  other  subroutines):  APLACE,  FACE, 
CFRAME,  and  ARROW. 

After  establishing  some  display  constants,  a  call  is  made  to  APLACE  which 
returns  the  point  at  which  to  place  the  head  of  the  view  direction  arrow.  Next,  a 
surface  of  constant  height  is  produced  and  a  call  made  to  FACE  with  a  "switch" 
positioned  such  that  FACE  merely  returns  values  of  XMIN,  YMIN,  DX,  DY  which 
will  be  used  on  subsequent  calls  to  FACE.  The  surface  is  next  normalized  and  a 
"display  frame"  is  plotted.  Because  of  the  difficulty  of  drawing  a  coordinate  frame 
for  a  perspective  display,  a  coordinate  frame  quite  similar  to  that  used  for  the 
contour  display  is  drawn  adjacent  to  each  perspective  display.  The  only  difference 
is  that  an  angle  of  view  arrow  is  drawn  on  the  frame.  This  frame,  then,  is 
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produced  by  calls  to  CFRAME  {see  Section  10.  7.3  on  contour  display)  followed 
by  a  call  to  ARROW  which  plots  an  arrow  at  the  point  found  by  APLACE.  Finally, 
FACE  is  called  to  produce  the  perspective  display. 


10.  7.  3  CONTOUR  DISPLAY 


The  contour  display  is  produced  by  calls  to  three  subroutines:  CLEV, 
CFRAME,  and  CONTOR.  Subroutine  CLEV  returns  pg  contour  levels  in  array 
ZLEVS,  evenly  spaced  between  the  surface  maximum  and  minimum  (but  exclusive 
of  the  surface  minimum).  The  surface  may  or  may  not  be  normalized  according 
to  parameter  p^. 

After  CLEV  has  been  called,  the  contour  "frame"  is  drawn  by  a  call  to  sub¬ 
routine  CFRAME.  An  example  of  the  frame  produced  by  CFRAME  is  shown 
below  (small  letters  indicate  numerical  or  character-string  values  which  are 
inserted): 


surface  title 


ALL  FUNCTION  VALUES  HAVE 


BEEN  SCALED  ACCORDING  TO 


c  •  (Z  -  ZMIN) 


(ZMAX  -  ZMIN) 


WHERE  ZMAX  =  zmax 


ZMIN  =  zmin 


ARE  THE  MAX.  AND  MIN. 
VALUES  OVER  ALL  SURFACES 
or  (VALUES  OF  THE  SURFACE) 
parameter  =  value 


The  contour  map  is  then  drawn  by  a  call  to  CONTOR.  Each  contour  level  line 
is  identified  by  a  unique  (mod  13)  symbol  which  is  printed  next  to  the  contour  map 
along  with  the  contour  level  value  which  the  symbol  represents. 


10.8  Ilalch  and  Intercom  Modes 


Attachment  6  gives  a  typical  set  of  commands  for  running  the  DISPLAY  pro¬ 
gram  under  the  Batch  mode  only.  The  Intercom  mode  does  not  have  sufficient 
capacity  to  handle  most  plotting  jobs,  since  approximately  142,000  octal  words 
are  required  in  the  central  memory  to  run  the  program  (including  the  plot  software). 
The  program  will  run  under  Intercom  if  the  arrays  in  unlabeled  common  are 
changed  from  (102,  102)  to  (22,  22). 

Running  time  of  the  program  is  determined  by  the  size  of  the  array  to  be  dis¬ 
played,  the  number  of  commands  and  the  command  parameters.  As  an  example, 
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a  100  by  100  array  was  displayed  with  CONTOUR  (20  levels),  PLOT  (10  cross- 
sections)  and  PERSPECTIVE  in  a  total  CP  time  of  82.  8  sec. 

10.9  Other  Features 

Various  quantities  which  might  be  useful  for  debugging  purposes  are  outputted 
on  file  TAPE6.  These  quantities  are: 

1)  XMAX,  YMAX,  PPI,  TICU 

2)  XLEN,  YLEN,  SCALEX,  SCALEY 

3)  XMIN,  YMIN 

4)  INDEX  (8  integers) 

5)  NDA  (if  not  0) 

6)  IND  (four  lines  of  integers  representing  the  locations  in  DATAIN  of  data 
to  be  plotted). 

7)  4)  and  5)  repeated  for  each  DATAIN. 

8)  Command  parameters.  (Note  that  the  command  itself  can  be  inferred 
from  the  form  of  the  parameters. ) 

9)  NP,  MP 

10)  ZMAX,  ZMIN,  TIM,  ZMIN 

11)  XMAX,  YMIN,  YMAX,  FLAG1  (Note:  FLAG1  is  a  logical  variable  which 
is  "FALSE"  if  an  end-of-file  has  been  reached  on  file  TAPE3. ) 

12)  9)  and  10)  possibly  repeated. 

13)  XMINF,  YMINF,  DX,  DY  (Only  for  perspective  display;  these  are  scale 
parameters, ) 

In  addition  to  the  output  which  comes  directly  from  program  DISPLAY,  the 
subroutine  CONTOR  (used  in  contour  display)  and  FACE  (used  in  perspective 
display)  output  various  quantities  (see  subroutine  listings). 

10.10  Program  Files 

In  addition  to  OUTPUT,  which  is  used  only  by  the  operating  system  to  output 
messages,  DISPLAY  uses  files  TAPE4,  TAPE6  and  TAPE3. 

TAPE3:  TAPE3  is  the  main  input  file  containing  the  surfaces  to  be  displayed 
as  well  as  the  information  records  containing  titles,  etc.  All  records  are  unfor¬ 
matted.  The  file  structure  is  as  follows: 


record  1: 


datain-1  (100,  3) 
datain-2  (100,  3) 


record  2: 

These  records  maybe  absent  (nda=0) 

record  nda:  datain-nda  (100,  3) 


record  nda+1  row  1  of  surface  1 


record  nda+np  row  np  of  surface  1 

row  1  of  surface  2 


•  row  np  of  surface  2 

last  record  row  np  of  surface  N 

Each  "row"  of  the  surface  has  a  record  of  the  form  given  in  the  first  para¬ 
graph  of  Section  10.  2. 

TAPE4:  TAPE4  is  the  "card"  input  file.  It  uses  formatted  data  as  described 
in  the  first  paragraph  of  Section  10.  3. 

TAPE 6:  TAPE6  is  the  formatted  output  file  for  messages  and  debug  quantities. 
See  Section  10.  8  for  a  partial  listing  of  TAPE6  records. 

11.  OTHER  CAPABILITIES 

The  computer  programs  described  in  this  report  either  have  been  extended,  or 
are  capable  of  being  extended,  to  various  other  aspects  of  the  window  problem. 

For  example,  a  program  has  been  written  and  successfully  implemented  in  fitting 
the  theoretical  temperature  distribution  produced  by  program  TEMP5  to  various 
experimentally  measured  temperature  distributions.  More  specifically,  the  tem¬ 
perature  at  one  or  more  points  on  the  window's  surfaces  are  measured  as  a  function 
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of  time,  as  a  source  is  turned  on,  then  off.  The  theoretical  temperature  rise  and 
fall  is  made  to  approximate  the  experimental  values  by  a  judicious  choice  of  vari¬ 
ous  parameters  (such  as  absorption  coefficient,  /3,  and  the  theoretical  boundary 
conditions,  as  given  by  the  hr  and  g^)  which  describe  the  thermal  properties  of  the 
window  material.  The  details  of  this  procedure  are  contained  in  Technical 
Memorandum  No.  16byT.B.  Barrett,  Parke  Mathematical  Labs.  (Oct.  1973). 

Another  phenomenon  which  could  definitely  affect  the  diffraction  pattern  in  the 
far  field  would  be  multiple  internal  reflections  of  the  laser  beam  within  the 
window.  15  Analysis  shows  that  this  condition  can  be  handled  effectively  if  each 
exponential  term  in  Eqs.  (25),  (26)  and  (27)  is  replaced  according  to  the 
prescription: 

exp  (ik$^)  -*  t^tg  exP  {ik$  "^}  /  [1  -  rjr2  exP  {2ik($"|,+  $')}l  (87) 

in  which  is  still  determined  by  Eq.  (18)  and  the  extra  phase  factor  is  given 
by: 

$'(p)  =  nL  +  ALb(p)  ,  (88) 

where  AL^  is  the  amount  by  which  the  window  bulges  when  heated  by  the  beam. 

The  t's  and  r's  are  amplitude  transmission  and  reflection  coefficients,  respec¬ 
tively.  The  subscript  1  refers  to  the  window's  entrance  face,  and  2  to  its  exit 

g 

face.  They  are  given  by  Weil: 
tx  =  2/(n+l) 

tg  =  2n/(n+l)  (89) 

rl~T2~  ‘ (n-l)/(n+l)  . 

Another  capability  inherent  in  the  program  is  allowing  an  axial  (that  is,  z) 
dependency  in  the  volume  heating  source  term  Q.  There  are  two  alternate  ways 
in  which  this  could  be  effected: 

(1)  Replace  subroutine  GAUSS  (refer  to  Appendix  A.  5)  by  another,  which  is 
also  to  be  called  GAUSS.  This  new  subroutine  is  to  have  the  same  arguments  as 
before  (see  card  #7120  in  Appendix  A.  5).  However,  now  the  Q-array  will  contain 


15.  Bendow,  B.,  Gianino,  P.D.,  Hordvik,  A.,  and  Skolnik,  L.H.  (1973)  Optics 
Commun.  7,:219;  and  Skolnik,  L.H.,  Bendow,  B. ,  Gianino,  P.D.,  an3 
Cross,  E.  F.  (1974)  AFCRL-TR-74-0085  (III),  p.  967. 
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the  appropriate  z-dependence.  The  variable  \mmes  in  the  argument  are  defined  in 
the  glossary  in  Table  3. 

(2)  If  the  Batch  mpde  is  to  be  employed,  an  alternate  procedure  would  be  to 
insert  the  following  data  cards  in  the  GETDATA  stack.  Referring  to  Attachment 
IB,  use 


IQ 

ICARD 


2 

4 


on  line  34,  and,  after  the  blank  card  on  line  35  insert  the  desired  Q-array  using 
format  7F10.  3.  At  present,  Q  is  dimensioned  (82,  22). 

Other  possible  extensions  of  the  computer  program  include: 

(1)  Temperature  dependence  of  some  of  the  material  parameters,  such  as 
refractive  index  n,  thermal  conductivity  K  and  thermal  lensing  parameters  sj. 

(2)  Multiple  layers,  or  coatings,  on  the  window  to  eliminate  reflections  and/ 

X  6 

or  to  compensate  the  thermal  lensing. 

(3)  Time  dependence  in  the  volume  source  term  Q. 

Trying  to  account  for  an  angular  (that  is,  e)  asymmetry  in  the  beam's  cross- 
section  would  not  be  a  feasible  extension,  for  it  would  necessitate  a  complete 
rewriting  of  the  program,  expanding  it  from  a  2-dimensional  to  a  3-dimensional 
treatment. 


16.  Bendow,  B. ,  and  Gianino,  P.  D.  (1975)  Appl.  Optics  14:277;  and  Bendow,  B. 
Gianino,  P.  D. ,  Flannery,  M. ,  and  Marburger,  3.  (1975)  Proc.  of  the 
Fourth  Annual  Conf.  on  Infrared  Laser  Window  Materials,  C.R.  Andrews 
and  C.  L.  Strecker  (Editors),  Advanced  Research  Project  Agcy. , 
Arlington,  Virginia,  p.  299. 


120 


References 


VOLUME  I 


1.  Sparks,  M.  (1971)  J.  Appl.  Phys.  4j2:5029;  and,  Jasperse,  J.R,,  and 

Gianino,  P,  D.  (1972)  J,  Appl.  Phys.  43:1686. 

2.  Bendow,  B.,  Jasperse,  J.R.,  and  Gianino,  P.  D.  (1972)  Optics  Commun. 

5:98. 

3.  Bendow,  B.,  and  Gianino,  P.D.  (1972)  AFCRL-72-0322,  unpublished. 

4.  Bendow,  B.,  and  Gianino,  P.  D.  (1973)  J.  of  Electronic  Mater.  2:87. 

5.  Bendow,  B.,  and  Gianino,  P.  D.  (1973)  Appl.  Optics  12:710. 

6.  Bendow,  B. ,  and  Gianino,  P.  D.  (1973)  Appl,  Phys.  2:1. 

7.  Gianino,  P.D.,  and  Bendow,  B.  (1973)  Appl.  Phys,  2:71. 

8.  Weil,  R.  (1970)  J,  Appl,  Phys.  41:3012:  and  Bendow.  B.,  Hordvik,  A., 

Lipson,  H.,  and  Skolnik,  L.  (1972)  AFCRL-72-0404,  unpublished,  p.  12. 

9.  Carslaw,  H.  S. ,  and  Jaeger,  J.  C.  (1959)  Conduction  of  Heat  in  Solids.  2nd 

edition,  Oxford  Press,  London,  p.  19. 

10.  Born,  M.,  and  Wolf,  E.  (1964)  Principles  of  Optics.  2nd  (revised)  edition, 
Macmillan  Co. ,  New  York,  p.  437, 


VOLUME  II 


11.  Carnahan,  B.,  Luther,  H.A.,  and  Wilkes,  J.  O.  (1969)  Applied  Numerical 

Methods.  Wiley  and  Sons,  Inc.,  New  York. 

12.  Parke,  N.  G. ,  III  (197 1)  Technical  Memorandum  No,  4.  Parke  Mathematical 

Laboratories,  Inc.,  Carlisle,  Massachusetts,  unpublished. 

13.  von  Rosenberg,  D,  U.  (1969)  Methods  for  the  Numerical  Solution  of  Partial 

Differential  Equations.  American-Elsevier  Publishing  Co. ,  Inc.,  New  York. 


14. 


15. 


16. 


Ralston,  A.,  and  Wilf,  H.  S.  (19671  Mathematical  Methods  for  Digital 
Computers.  Vol.  II,  Wiley  and  Sons,  Inc.,  New  York. 

Bendow,  B.,  Gianino,  P.D. ,  Hordvik,  A.,  and  Skolnik  L.H.  (1973) 

Optics  Commun,  7:2 19;  and  Skolnik,  L.  H. ,  Bendow,  B. ,  Gianino,  P.  D., 
and  Cross' '"'E'T.  ll974)AFCRL-TR-74-0085  (HI),  P-  967. 


Bendow,  B.,  and  Gianino,  P.  D.  (1975)  Appl.  Optics  14:277;  and  Bendow,  B. , 
Gianino,  P. D. ,  Flannery,  M. ,  and  Marburger,  J .  (1975)Proc.  of  the 
Fourth  Annual  Conf.  on  Infrared  Laser  Window  Materials,  C.R.  Andrews 
and  C.  L.  Strecker  (Editors),  Advanced  Research  Project  Agcy. , 

Arlington,  Virginia,  p.  299. 


122 


V!nA*-,|f'iW  caT-nyi 


Attachment  1 


Commands  to  Run  TEMP5  and  TIK1RK 


Here,  the  goal  is  to  initiate  and  run  a  specified  TEMP5  and  a  TIKIRK  cal¬ 
culation,  then  print  out  and  catalog  the  results  on  permanent  file  (PF).  Before 
beginning  this  job,  one  should  have  previously  stored  in  the  computer  the  following 
two  PF's:  TEBX  (the  PFN  for  the  TEMP5  program),  and,  TIBX  (the  PFN  for  the 
TIKIRK  program  described  in  Sections  6,  1  -  6.  6).  A  third  ancillary  program, 
T3D,  whose  use  is  optional,  is  available  to  be  added  to  the  previous  two.  Given 
the  PFN  of  T3BX,  it  prints  out  functions  FI  and  F2  (see  Eqs.  (16)  and  (17), 
Volume  I).  The  Fortran  listing  for  program  T3D  is  given  in  Appendix  F.  Inci¬ 
dentally,  the  third  letter  (B)  in  each  of  the  above  PFN's  means  that  the  PF  is  in 
binary  form. 

A.  Intercom  Commands 

The  following  is  a  typical  set  of  Intercom  commands: 


Computer 
types  out. . 


COMMA  ND- 


Operator 

Response 


ETL(450) 


Comments 

Extends  time  length  to 
450  octal  sec. 


COMMA  ND- 


CONNECT(TAPE4,TAPE5) 


Line 

No. 

Computer 
types  out. . 

Operator 

Response 

Comments 

.  Start  of  TEMPS  calculation . 

3 

COMMAND- 

ATTACH(TEB,  TEBX, 
ID=GIANINO) 

TEB  is  LFN  for  TEBX. 

4 

COMMAND- 

TEB 

5 

READ  DATA  FILE-3? 

N 

N=no  (because  you  want 
to  create  a  new  TAPE3) 

6 

DEFAULTS  LISTED?- 

N 

Customary  answer. 

7 

NA  ME-VA  LUE  MODE?- 

Y 

Y  =yes . 

8 

NAME  VALUE.... 

BETA  .  003 

17  1 

etc. 

(i)  Enter  the  new  TEMP5 
variables  here.  See 
Table  2  Volume  II. 

(ii)  The  name  of  the  vari¬ 
able  starts  under  N 

in  NAME;  its  numeri¬ 
cal  value  under  V  in 
VALUE. 

9 

DATA  INPUT  COM¬ 
PLETE 

WORK  OF  DATINIT 

COMPLETE. . . 

WORK  OF  CYLTMP 

COMPLETE. . . 

END  OF  RUN 

EXIT 

- CP  SECS  EXE¬ 
CUTION.  . . 

.  TEMP5  Calculation  has  been  completed. . . 

10 

COMMAND 

CONNECT(OUTFUT) 

Lines  10- 13  cause  FI  and 
F2  to  be  printed  out  at 
remote  terminal  facility 
(AU).  They  may  be 
omitted,  if  desired. 

11 

COMMAND- 

A  TTACH(T3B,  T3BX, 
ID=GIANINO) 

T3B  is  LFN  for  T3BX. 

12 

COMMAND- 

T3B, , A 

A  is  merely  a  surrogate 
name . 

END  T3D 

. .  CP  SECS  EXECUTION. . 

13 

COMMAND- 

ROUTE,  A ,  ST=RMT, 
FID=GIAAU.  DC=PR. 

14 

COMMAND- 

REQUEST(PAT.*PF) 

Lines  14- 17  create  a  new 
TA PE3-type  PF.  We 
arbitrarily  give  it  the 
PFN  of  T3NX.  PAT  is 

merely  a  LFN. 


Line 

No. 

Computer 
types  out. . 

Operator 

Response 

Comments 

15 

COMMAND- 

REWIND  (TAPE  3) 

16 

COMMAND- 

COPY  (TAPE  3,  PAT) 

17 

COMMAND- 

CA  TA  LOG  (PA  T,  T3NX , 
ID=GIANINO,  RP  =  999) 

18 

COMMAND- 

ROUTE,  TA  PE6,  ST=RMT, 
FID=GIAAU,DC=PR. 

Causes  the  information 
on  TAPE6,  containing  the 
TEMP5  results,  to  be 
printed  out  at  remote 
terminal  facility  (AU). 
Also  clears  TAPE6. 

(ASIDE:  If  all  that  is  desired  is  the  temperature  distribution  in  the  window,  this 
would  be  a  convenient  place  to  stop). 

. Start  of  TIKIRK  calculation . 

19 

COMMAND- 

ATTACH  (TIB,  TIBX, 
ID=GIANINO) 

TIB  is  LFN  for  TIBX. 

20 

COMMAND- 

TIB 

21 

READ  DATA  FILE-3? 

Y 

Because  you  want  to  use 
information  from  the 
"new"  TAPE3,  viz.  T3NX. 

22 

DEFAULTS  LISTED?- 

N 

23 

NAME-VA  LUE  MODE?- 

Y 

24 

NAME  VALUE. . . 

(space, return) 

Do  not  enter  any  value 
here; just  hit  the  "space" 
and  "return"  keys. 

DATA  INPUT  COMPLETE 

25 

READ  DATA  FILE-7?- 

N 

Answer  here  is  always 

it" 

no  . 

26 

DEFAULTS  LISTED?- 

N 

27 

NAME-VA  LUE  MODE?- 

■  Y 

28 

NAME  VALUE... 

XI  800 

NP  26 

(i)  Enter  the  new  TIKIRK 
variables  here.  See 
Table  4,  Volume  II. 

(ii)  See  Comment  (ii)  on 
Line  8. 

29 

DA  TA  INPUT  COM¬ 
PLETE 

TIKIRK  calculation  has 
been  completed. 

Line  Computer 

No.  types  out. . 

NEW  VA  LUE  OF  TA  U 
IS... 

30  COMMAND- 

31  COMMAND- 

32  COMMAND- 

33  COMMAND- 

34  COMMA  ND- 

B.  Batch  Commands 

Card 
No. 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 


Operator 

Response 


ROUTE,  TAPE6,  ST=RMT, 
FID=GIAAU,  DC=PR. 

REQUEST(PIT,  *PF) 

REWIND(TAPE7) 

COPY  (TA  PE7 ,  PIT) 

CATALOG(PIT,  TKX, 
ID=GIANINO,  RP=999) 


Comments 

Prints  out  the  10  values 
of  TAU  corresponding  to 
time  values  T1  through 
T10.  See  Eq.  (13), 
Volume  I. 


Routes  the  TAPE6  infor¬ 
mation,  containing  the 
TIKIRK  results,  to  re¬ 
mote  terminal  (AU)  for 
printout. 

Lines  31-34  create  a  new 
TAPE7-type  PF.  We 
arbitrarily  give  it  the 
PFN  of  TKX.  PIT  is 
merely  a  LFN.  This  new 
PF  can  be  used  as  the 
input  in  the  DISPLAY 
program  for  plotting  the 
intensity. 


Comments 


Assigns  TAPE3  to  per¬ 
manent  file. 


Command 

Job  ID  with  T=2000,  core  memory=170K 
ATTACH(TEB,  TEBX,  ID=GIANINO) 
REQUEST(TAPE3,  *PF) 


TEB(INPUT,  OUTPUT)  Loads  and  executes  TEBX. 

REWIND(TAPE6) 

COPY(TAPE6, OUTPUT)  Prints  output. 

CA  TALOG(TAPE3,T3NX,  ID=GLANINO,RP  =  999) 

A  TTA  CH(TIB,  TIBX,  ID=GIA  NINO) 

REQUEST(TAPE7,  *FF) 

REWIND(TA  PE6) 

TIB  (IN  PUT) 

REWIND(TA  PE6) 

COPY  (TA  PE6 ,  OUTPUT) 


13 


Card 

No. 


Comments 


Command 


CA  TA  LOG  (TA  PE7 ,  TKX ,  ID  =G  IA  NINO,  R  P = 9  99 ) 


All  commands  after 
EXIT,  S.  are  executed  if 
and  only  if  TEB  terminates 
abnormally,  e.  g. ,  exceeds 
time  limit. 


EXIT,  S 


REWIND(TAPE6) 

COPY(TAPE6,  OUTPUT) 

CA  TA  LOG  (TA  PE3,  T3NX,  ID=GIA  NINO,  RP=999) 
CA  TA  LOG(TAPE7 ,  TKX,  ID=GIANINO,  RP=999) 
7/8/9 


EOR  Card 


Name  starts  in  col.  1; 
numerical  value  starts  in 
col.  11. 


BETA 

17 


Blank  card 


Blank  card 


Name  starts  in  col.  1; 
numerical  value  starts  in 
col.  11. 


Blank  card 


EOF  card 


6/7/8/9 


Commonds  to  Modify  a  Temperature  Distribution 


Assume  that  a  TEMP 5  calculation  has  already  been  performed  and  the  results 
cataloged  under  the  PFN  of  T3NX  (cf.  lines  14-17  in  Attach.  1A).  Further,  assume 
that  one  wants  to  change  only  a  few  of  the  input  variables  and  then  calculate  a  new 
temperature  distribution.  The  following  commands  indicate  how  the  previous 
results  may  be  utilized. 


A.  Intercom  Commands 


Line 

No. 

Computer 
types  out. . 

Operator 

Response 

Comments 

1 

COMMAND- 

ETL(450) 

2 

COMMAND- 

CONNECT(TA PE4,  TAPE5) 

3 

COMMAND- 

REWIND(TAPE6) 

Clears  TAPE6. 

4 

COMMAND- 

REWIND(TA  PE7 ) 

Clears  TAPE7. 

5 

COMMAND- 

ATTACH(PET,  T3NX, 
ID=GIANINO) 

Attaches  former  TAPE3 
with  LFN  of  PET. 

6 

COMMAND- 

COPY (PET,  TAPE3) 

Copies  "former"  TAPE3 
onto  a  "new"  TAPE3, 

which  is  given  the  LFN  of 
TAPE 3.  Thus,  the  origi¬ 
nal  file  (T3NX)  is  still 
intact  and  available  for 
future  use. 
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Line 

No. 


Computer 
types  out. 


Operator 

Response 


Comments 


COMMA  ND- 


A  TTACH(TEB,  TEBX, 
ID=GIANINO) 


COMMAND-  TEB 

READ  DATA  FILE-3?-  N 


10 

DEFAULTS  LISTED?- 

N 

11 

NAME-VALUE  MODE?- 

Y 

12 

NAME  VALUE . 

SIG 

.4 

Enter  those  TEMP5  vari- 

PWR 

1E7 

ables  which  are  to  be 

• 

- 

changed.  Also,  see 

- 

Comment  (ii)  on  Line  8, 

_ 

_ 

A  ttach.  1A . 

13  Same  as  line  9,  et  seq. .  Attach.  1A.  However,  when  one  gets  to  the 

et  equivalent  of  line  17,  Attach.  1A,  one  should  give  the  new  PF  a  new  PFN, 

seq.  say,  T3QX. 


B.  Batch  Commands 

Card  Command 

No. 

1  Job  ID  with  T=1000,  CM  =  60K 

2  ATTACH(PET,  T3NX,  ID=GIANINO) 

3  REQUEST(TAPE,  *PF) 

4  COPY  (PET.  TAPE3) 

5  RETURN(PET) 

6  ATTACH(TEB,  TEBX,  ID=GIANINO) 

7  TEB(INPUT,  OUTPUT) 


Comments 


Attaches  old  TAPE3. 

If  new  TAPE3  is  to  be 
permanent . 


Return  if  you  want  to  use 
at  a  later  date.  Otherwise, 
could  purge  it. 


8  CA TALOG(TAPE3,T3QX,ID=GIANINO,RP=999)  The  new  TAPE3  is  given 

the  PFN  of  T3QX. 


9  REWIND(TAPE6) 

10  COPY(TAPE6) 

11  7/8/9  EOR  card. 

12  Y 

13  N 
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Card 

No. 


Comments 


Command 


Enter  those  TEMP 5  vari¬ 
ables  which  are  to  be 
changed.  Also,  see  com 
ment  on  line  34, 

Attach.  IB. 


(blank  card) 
6/7/8/ 9 


Commands  to  Recalculate  TIKIRK,  Given  TEMP5  Results 


There  are  certain  input  variables  which  will  affect  the  computed  spatial 
intensity  pattern  (and  possibly  even  the  dimensioned  temperature  distribution  in 
the  window),  but  not  the  normalized  temperature  distribution.  The  ir.put  para¬ 
meters  which  belong  to  this  category  are  most  of  the  variables  found  in  Table  4 
and  those  in  Table  2  which  are  accompanied  by  the  code  letter  K  in  the  Useage 
Code  column  (Col.  #  6  ). 

As  in  Attach.  2,  we  assume  that  a  previous  TEMP5  calculation  is  available 
under  the  PFN  of  T3NX.  Now,  we  desire  to  observe  the  effects  which  changes  in 
the  above-mentioned  variables  have  on  the  computed  intensity  pattern.  For  each 
set  of  changes  made,  the  TIKIRK  program  must  be  executed.  The  following 
gives  a  representative  series  of  typical  commands  necessary  to  implement  this 
procedure. 

A.  Intercom  Commands 


Computer 
types  out. . . 


Operator 

Response 


Comments 


1-4  Same  as  in  Attach.  2A . 


COMMAND- 


A  TTACH(TA  PE3,  T3NX, 
ID=GIANINO) 


Attaches  PF  with  LFN 
of  TAPE3. 


'V 


>l|^S  BLANK-NOT  FI 


Line  Computer 

No.  types  out. . . 


Operator 


Response 


Comments 


6-21  Repeat  lines  19  through  34,  inclusive,  from  Attach.  1A.  However,  on 
line  24  enter  the  desired  TEMP5  variables,  if  any,  which  you  want  to 
change  and  which  do  not  affect  the  normalized  temperature  distribution 
in  the  window.  (Note  that  TEMP5  parameters  are  being  entered  at  this 
stage,  even  though  the  TIKIRK  program  currently  has  control.  ) 

On  line  28  enter  only  those  TIKIRK  variables  whose  magnitudes  are  to  be 
different  from  the  default  values. 

On  line  34  select  a  different  PFN  for  the  new  TAPE7-type  PF  just  com¬ 
pleted. 

. End  of  TIKIRK  calculation . 

If  you  want  to  change  the  variables  again  and  repeat  the  TIKIRK  calculation: 

22  COMMAND-  TIB 

23  Repeat  lines  21  through  34,  inclusive,  from  Attach.  1A,  subject  to  the 
same  comments  as  noted  in  line  6  above. 

Each  time  the  variables  are  to  be  changed  and  the  TIKIRK  calculation  is  to  be 
recomputed,  repeat  lines  22  and  23  above. 

B.  Batch  Commands 

If  run  as  a  separate  problem,  assume  that  the  TEMP5  PF  having  PFN  of  T3NX 
has  already  been  created. 

Carcl  Command 

No.  - 

1  Job  ID  with  T-2000,  CM  =  17 OK 

2  ATTACH(TIB,  TIBX,  ID=GIANINO) 

3  A  TTA CH(TA  PE3,  T3NX,  ID=GIANINO) 

4  REQUEST(TAPE7,*PF) 

5  TIB(INPUT) 

6  REWIND(TAPE6) 

7  COPY(TAPE6, OUTPUT) 

8  CATALOG(TAPE7,  TKX,  ID=GIANINO) 


Plus  cards  #26-#36,  inclusive,  of  Attach.  IB. 


Attachment  4 

Commands  to  Produce  a  TAPE8  for  Temperature  Plots 


The  temperature  distribution  information  contained  on  the  file  called  TAPE3 
is  not  in  the  proper  format  for  plotting  purposes.  Rather,  this  information  must 
be  transferred  in  the  appropriate  format  to  another  file,  called  TAPE8,  which  is 
suitable  for  plotting  by  the  DISPLAY  program.  This  attachment  gives  all  of  the 
commands  required  to  generate  and  catalog  a  TAPE8  file,  provided  that  the  tem¬ 
perature  results  are  already  on  a  TAPE3-type  PF.  We  assume  that  this  latter 
file  has  already  been  created  and  given  the  PFN  of  T3NX. 


A.  Intercom  Commands 

Line  Computer 

No.  types  out. . . 

1  COMMA  ND- 

2  COMMA  ND- 

3  COMMA  ND- 

4  COMMA  ND- 

5  COM  M  AND - 

6  COMMA  ND- 


Operator 

Response 


Comments 


ETL{450) 

CONNECT(TAPE4,  TAPE5) 
REWIND(TAPE6) 

REWINDfTA  PE7 ) 

ATTACH(TAPE3,  T3NX,  ID*GIANINO) 
A  TTACHfTIB,  TIBX,  ID=GIANINO) 
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.  ,•  ’iCLv, 


COMMAND-  TIB 


READ  DATA  FILE  =3?-  Y 


DEFAULTS  LISTED?-  N 


0  NAME-VALUEMODE?-  Y 


NAME  VALUE _  (space,  return) 


READ  DATA  FILE -7?-  N 


13  DEFAULTS  LISTED?-  N 


14  NAME-VALUE  MODE?-  Y 


15  NAME  VALUE 


NP  1 

MP  1 

IPRNT  2 
T1  time  value 

#  1  (in  sec) 


T10  time  value 

#  10(in  sec) 


(i)  Only  the  data  shown 
here  can  be  entered. 

(ii)  See  Comment  (ii)  on 
line  8,  Attach.  1A. 

(iii)  Only  those  tempera¬ 
tures  will  be  plotted 
which  correspond  to  the 
(dimensioned)  times 
given  by  Tl,  T2,  etc. 

Linear  interpolation  is 
done,  if  necessary. 


16  COMMAND- 

17  COMMA  ND- 

18  COMMA  ND- 


REQUEST(DOG,  *PF) 
REWIND(TAPE8) 
COPY(TAPE8,  DOG) 


Lines  16- 19  create  a 
new  TAPEJ8-type  PF 
whose  PFN  is  TEMPX 
and  whose  LFN  is  DOG. 


19  COMMAND-  CA TALOG(DOG,  TEMPX, 

ID=GIANINO,  RP  =  999) 


ASIDE:  If  you  want  to  calculate  the  diffraction  pattern  concomitant  with  the 
temperature  distribution  contained  in  the  permanent  file  T3NX  as 
mentioned  above,  refer  to  Attach.  3A.,  starting  with  line  #22. 


Comments 


B.  Batch  Commands 

Command 

No.  - 

1  Job  card,  T=20,  CM=60K 

2  ATTACH(TAPE3.  T3NX,  ID=GIANINO) 

3  REQUEST(TAPE8,  *PF) 

4  ATTACH(TIB,  TIBX,  ID=GIANINO) 


Operator 

Response 


Comments 


Computer 
types  out. 


,fr°  Command  Comments 

No.  - - 

5  TIB(INPUT) 

6  CA  TALOG(TAPE8,  TEMPX,  ID=GIANINO 

7  7/8/9  EOR  card. 

8  Y 

9  N 


10 

Y 

11 

---- 

Blank  card. 

12 

N 

13 

N  •’ 

14 

Y 

15 

NP 

1 

For  cards  #15-27,  see 
comments,  line  15, 

Attach.  4A. 

16 

MP 

1 

17 

IPRNT 

2 

18 

T1 

time  value  #  1 

On  cards  #18-27,  all  time 
values  are  in  seconds. 

27 

T10 

time  value  #  10 

28 

Blank  card. 

29 


6/7/8/9 


EOF  card. 


SflPWmo* 


Attachment  5 

Commands  for  Running  Alternate  TIKIRK  Program 


Assume  that  the  alternate  TIKIRK  program,  introduced  in  Section  9.7, 
Volume  II,  has  been  stored  in  the  computer  and  is  available  for  use,  rather  than 
the  original  TIKIRK  program  (as  discussed  in  Sections  9.  1-9.  6).  This  alternate 
program  is  also  given  the  PFN  of  TIBX.  Let  us  further  assume  that  we  want  to 
utilize  option  #3,  which  has  the  PFN  of  IK  IB.  The  revised  commands  to  run  this 
alternate  program  are: 


A.  Intercom  Commands 


Line 

No. 

Computer 
types  out. . 

Operator 

Response 

Comments 

1-19 

Same  as  Attach.  1A. 

20 

COMMAND- 

A  TTA  CH(  IKB,  IK  IB, 
ID=GIANINO) 

IKB  is  the  LFN  for  this 
file. 

21 

COMMAND- 

XEQ 

Indicates  the  following 
commands  are  loader 
commands. 

22 

OPTION  = 

LOAD=TIB,  IKB 

Causes  loading  of  the 
main  program  TIKIRK 
and  subroutine  IKIRK. 

Line 

No. 


Computer 
types  out. , 


2?,  OPTION  = 


24- 


Operator 

Response 


EXECUTE =TIKIRK 


37 


Same  as  lines  21-34,  inclusive.  Attach.  1A. 


Comments 
Initiates  execution. 


The  above  commands  would  be  the  same  for  the  other  two  options  (#  1  and  2), 
except  that  on  line  20  the  appropriate  PFN  would  be  entered  in  place  of  IK  IB. 
However,  the  LFN  of  IKB  must  be  maintained. 


^mmimssssmvsn 


i 


i 


% 


B.  Batch  Commands 


Command 


Job  card,  T=2000,  CM=170K 
A TTA CH (TIB,  TIBX ,  ID  =GIA  NINO) 
ATTACH(TAPE3.  T3NX,  ID=GIANINO) 

ATTACH  (IKB,  IK  IB.  ID=GIANINO) 
REQUEST(TAPE7,  *PF) 

LOAD(TIB.IKB) 

EXECUTE(TIKIRK) 

REWIND(TAPE6) 

COPY(TAPE6) 

CA  TA  LOG (TA  PE7 ,  TKX ,  ID  =GIA  NINO,  R  P = 9 99 ) 
7/8/9 


(blank  card) 


Command 


(blank  card) 


Attachment  6 

Batch  Commands  for  Running  DISPLAY  Program 


: 


(1)  Intensity  Plots 

Let  us  assume  that  a  TAPE7-type  file,  having  the  PFN  of  T7X  and  containing 
the  intensity  information  to  be  plotted,  has  already  been  created. 


Card 

No. 


1 

2 


Command 

Job  ID.  T=300,  CM  =  170000 
ATTACH(DISB,  DISBX,  ID=GIANINO) 


3  ATTACH(TAPE3,T7X,ID=GIANINO) 

4  ATTACH(PEN.ONLINEPEN) 

5  LIBRARY  (PEN) 

6  LDSET(PRESET=ZERO) 

7  DISB(INPUT) 
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Comments 


Attaches  the  DISPLAY 
program,  whose  PFN  is 
DISBX  and  whose  LFN  is 
DISB. 

Attaches  the  permanent 
file  T7X,  using  the  LFN 
of  TAPE3. 

Cards  #4-13  control  the 
plotting  process. 


‘r- 


- -  iry. 


Card 

No. 

Command 

Comments 

8 

RE  WIND  (TAPE  6) 

9 

COPY(TAPE6) 

10 

DISPOSE,  PLOT,  *OL. 

11 

EXIT. 

12 

REWIND(TAPE6) 

13 

COPY(TAPE6) 

14 

7/8/9 

15 

Data  card  #  1 

See  Section  10.  3  for 
details  on  data  cards. 

16 

Data  card  #2 

17 

Data  card  #3 

Use  the  values  pertaining 
to  TAPE7  , 

18A 

B 

Data  card  #4A 

Data  card  #4B 

Cards  18A  and  18B  con¬ 
tain  the  sequence  nos.  of 
those  TEMP5  and  TIKIRK 
parameters,  respectively, 
which  are  to  be  listed  with 
the  plots. 

19 

Plot  command  cards  (one  or  more) 

See  Section  10.  4  for  details 
on  plot  command  cards. 

20 

6  /  7  /  8  /  9 

(2)  Temperature  Plots 

Suppose  that  a  TAPE8-type  file  has  already  been  created,  having  the  PFN  of 
TEMPX  and  containing  the  temperature  distribution  within  the  window.  Then,  the 
commands  to  obtain  temperature  plots  are  the  same  as  in  Part  (1),  above,  with 
the  following  exceptions: 

Card  Command  Comments 

No.  - 

3  ATTACH(TAPE3,  TEMPX,  ID=GLANINO)  A  gain,^  the  PF  is  given  the 

17  Data  card  #3 


18B 


(Remove  data  card  #4B) 


Use  the  values  pertaining 
to  TAPE8, 


If  it  is  desired  to  have  any  of  the  above  plots  drawn  with  red  ink,  card  #  10 
above  would  be  replaced  by  the  following: 

^frd  Command  Comments 

No.  - - -  - 

10  DISPOSE,  PLOT,  *PL.  RED  INK  PLEASE  The  word  RED  starts  in 

col.  21. 


■  . . -"I/'  ■.  ’-  "T 


A.1  Main  Program  TEMPS 


program  tFMPS  nAPr4  =  i?R.TAPE5=12B  • TAPf3. TAPE6* l 28 .OUTPUT =  1 2B ) 

TFwnS  IF  THE  PR TGoAJ  NAME  ASSIGNED  TO  A  PROGRAM  BEING  AOfiPTED 

f on**  program  te  <Ra  for  the  phhpose  of  reouction  of  experimental 
n.lTn  (  H  US  T  )  To  oe.TfRMIne  h  aNO  BfTA.  JUNE  1972  BT  N.G. PARKE. 
THE  MEANING  OF  THf  symbol^  And  parameters  For  This  PROGRAM 
AoE  DESCRIBED  In  tHF  COMMCNT  CAROS  WITH  subroutine  UTAFT  which  is 
CAI  lEO  BY  THIS  PROGRAM  afier  IT  has  READ  IN  THF  INITIAL 
°ARaMETf->S  and  data.  A  PARAMETER  ANO  DATA  DECK  IS  PUNCHFU 
OUT  BV  OTAET.  'Taft  Also  PRINTS  OUT  ANY  UtbUG  DATA  INDICATED 
PY  oARAmftERS  11  -  JT. 

SilBoOUTIu1  OTAEt  tS  a  moOIFIGATION  OF  SUBROUTINE  TMPBIJ 

fop  afcri  by  n.g.darre  in  June  irt2 

This  SUrROUTINF  WAS  ORIGINALLY  MODIFIED  ON  A  APRIL  197?  TO  SHIFT 
THF  DATA  TO  EVEN  TNi-ofMENIS.  USImG  SP|  INE  INTERPOLATION  AND 
THF  CHOSFM  ARBITRARY  BOUNDARY  CONDITIONS.  THIS  MODIFICATION 
WAS  MADE  BY  M.G.PaRyf. 

The  parent  program  has  tF.mp4  for  calculating  the  unsteady  heat 

CONDUCTION  IN  A  F  TNI TE  CYLINDER  SUBJECT  TO  GENERAL  BOUNDARY 
CONDITIONS  ON  ail  Zfo  Awn  Rho  surfaces.  IT  then  computes  the 
INTfGRALs  FI  ANO  F?.  OFoUlHED  BY  OR.  nE.NOOW  ANO  PUNCHtS  .THE 
INOiiT  PARAMETERS  ANO  FI  AND  F2,  TE  II  =  1. 

the  cylinder  ts  hfatfo  by  a  volume  source  distribution, 
cylindrical,  symmetry  is  ASSUMtO.  I.E..  THE  PARABOLIC 
PARTIAL  OTFFEREMTIAI  EDNA! ION  IS  IN  CYLINDRICAL  COORDINATES 
WITH  the  ANGLE  VApIAPLE  MISSING. 

THE  net  oE  SPACF  pOTnTS  IS  SHIFTED  HAi  F  An  INCREMENT  FmOm 
ROI|”04R|FS  WHICH  *RF  PfCTANGllLAR  IN  CyLINUWICAL  COORDINATES. 

Tuls  NET  is  HODiDfO  OY  a  FICTITIOUS  SfT  OF  POINTS  THAT 

allow  thf  east  rptttmg  of  general  boundary  conditions. 

TFMP4  IS  A  program  WHICH  IS  RASED  ON 

the  implicit  alternating  difference  method  of  integraiing 

A  PjRAHOI  1C  PARTIAL  DIFFERENTIAL  EOUATION.  IT  IS  CALLrD 
the  I.A.o,  METHOD  fob  SHORT • 

IN  ADDITION  TO  THF -usual  LIBdARY  OF  MATHEMATICAL 

ANO  SYSTEM  SUBROUTINES.  TEMP4  REOUIREO  THE  SJBROUIINEp  TpIOAG 

ANO  GAUSS.  AS  WEI. I  AS  THf  S5D  ROUTINE  OSF  FOR  INTEGRATING. 

THE  THEouftiCAL  RaS'S  Fnfi  THIS  PROGRAM  IS  FOLLY  DOCUMtNTrU 
IN  TM  NO.  s.  NATHaN  c.ojeb  PARKE  TIT.  PARKE  mathematical  |  aBS. 

INC.w  ONF  RIVER  RnAo.  CeRLIS|t.  MASS. 01741.  NOVEMBER  19?i. 
MODIFICATIONS  For  vfpsT ON  TEMP4  WILL  APPEAR  IN  TM  NO. 7. 

INPUT  And  INITIALIZATION  CONTROL  CHARACTERS 
IN  =  I)  TFMP  OISTBIB  U  INTIIAi  IZED  TO  UO 

in  -  i  temp  initial  distribution  read  in  on  <icaru< 

\n  -  n  .n.  SOIIRCF  DISTRTB  0  INITIALIZED  TO  ZERO 

in  =  I  .  =  .  CALCIII  ATF  ANO  INITIALIZE  0  AS  A  TRUNCATED  GAUssIAN 

OISTRIBUTION. 

ID  =  2  .  =  .  SOURCE  DISTRIBUTION  RfAD  INI  ON  ICARD. 

USE  OF  THF  HOUNUArY  CONOIHON  PAPAMETFRS  G  AND  H* 

a  prRFFni  INSULATING  FOIINUARY  IS  CHARACTERIZED  BY  G  =  Or  H  =  0 
NEwWONS  I  AVI  OF  COOLING  IS  CHARACTERIZED  BY  G  =  0.  H  =  F  I|  M  COEFF 
OIVFN  HEAT  INPUT  TS  CHARACTEpIZEo  BY  r,  =  INPUT.  H  =  0 

givfn  tf''°eratij'f  is  characterized  by  g/h  =  temp  and 

BOTH  G  A-'O  H  VERY  LARGE.  E.G..  G  =  TEmP  *  E25.  H  =  l»E2s. 


HF(y.Yi  ano  GFix,v.7»  arf  staiement  functions  of  tbl  form 

USED  IN  EQUATIONS  . . <221  IN  T«  NO.  b  TO  APPLY  THf 

thf  GENFRAL  boundary  COnDITIO  S  be  CAI.CULAIING  THE  EICTiIIOUS 
POTmTs  IN  THF  U  AMO  iISTAR  Arrays . 


ujOIoo 

OmOIIO 

OjOIPO 

0“0130 

0-0140 

0I.01S0 

0  01G0 

000170 

0  01H0 

OoO 1 90 

6  0200 

0V02I0 

000220 

0J0210 

O'  0240 

0-0250 

000260 

0u0270 

Oa.0280' 

0 J0290 

0u0300 

0-0310 

Oo0320 

6-0330 

000340 

6-0350 

Ou0360 

010370 

6-0380 

0 )0390 

000400 

0 J0410 

0 00420 

000430 

0-0440 

6-0450 

000460 
Ou0470 
Ou04mO 
000490 
030500 
OoOSIO 
0  '0520 
0  )0530 
6-0540 
6-0550 
O'. 0560 
0V0570 
0V05B0 
OV0590 
0u0600 
0J06I0 
6-0620 
0u0630 
6. 1 064  0 
0V0650 
0  10660 
6  0670 
U-06H0 
6  0690 
6-0700 
6/0710 
6-0720 
0J0730 
6.-0740 
030750 
6  j  0  7  60 
6-0770 
(U-07B0 
6 J0790 
Of  0800 
6  0810 
6(‘0B20 


E 


75 


80 


MS 


Oft 


OS 


1AO 


105 


lie 


115 


l?o 


125 


lie 


135 


140 


145 


150 


C . ASS.GN  logical  NHmRprS  to  ICAKD.IKEY.tPRINT  and  ITYPE  USING 


C  JMOiiT  DEVICE  1.  Oft  CHANGE  THE  FIPST  OF  AD  CARD  TO  REQIRtD  DEVICE  NO 

C  THIS  HAKES  THE  program  EASILY  TRANSFrRABLE  TO  COMPUTERS  WITH 

c  r>TEr£uEMT  logical  n^'/tCE  numrer  assignments. 
c 

C  RARaHETE rS  II.. ...17  FOR  CONTROLLING  the  PRESENCE  AND  ABstNCE  OF 

c  output  i  .=.  output  i  .=.  inhibit. 

c  ii  .  =.  oiimch  and  print  fi.F2*  and  parAm 

C  IP  .  =  .  °o  TNT  TAll.i  M0  4.HII.NN.no.  I CNT  • ICNTR 

c  n  .=.  print  KK.A.B.c.n.uPRiMlALso  initial  values  of  u.ustar  etc 

c  I u  .  =  .  POINT  U  ANn  n  AFTER  INITIAL  DATA  READ  IN  OR  COMPUTED 

C  IS  .  =  .  POINT  I.  I.UFTMt.J.K). 

C  IS  .  =  .  PUNCH  IJF'IN  ANO  PARAMETERS. 

C  17  .  =  .  POINT  I . . I  ..II  ON  hale  INCREMENT  SHIFTED  LATTICE. 

C  THE  HALE  INCREMENT  SHIFTED  LaITIFE  IS  THE  ONE  USED  BYUS  TO 

C  HR  I rE  The  PROGRAM  EASILY  FOR  GENERAL  ROUNDARY  CONDITIONS. 

C 

C  S' HoOHT Tne  SPLNI(N.M.E°S.A»Y.I.SS.SSI.SS2»QUA) 

C  THIS  IS  4  MODIFICATION  OF  SSP  SUBROUTINE  SPUE  TO  MAKt  Qua  AN 

C  ARRAY  To  MAKE  THE  INTEGRAL  A  FUNCTION  OF  X 

C  DMA  =  IMTFGRAL  OF  SS  from  X(|>  TO  X  (Nt  -  qua  is  an  array 

C 

C  F y no  THIRD  order  CPI  i me  ECT  FOR  A  FCT  Y(X)  GIVEN  AT  THE 
C  PQIvTS  (XIII.Y(I)t 

C  FOLI  OWIMF.  CHAP.  B  OF  VOIR  OF  RALSTON  ♦  WILF 

C 

C  NT  NO. OF  GIVEN  Data  ROTNIS 

C  M  s  NO. OF  SRFCIFIrn  APGIIMtNTS  T<  I)  FOR  WHICH  THE  SPLINt 

C  SS.ITS  FIRST  ilFo.ssI  AND  SECOND  DER.S52  ARE  TO  BE  COMPuTEO 

C  EPS  =  EBhOR  TOLPRANCP  in  ITERATIVE  STEPS 

C  X  =  array  of  STRICTLY  INCREASING  abscissas 

C  Y  =  Array  OF  FCT  VALUES 

C  T  =  ARRAY  PF  DEsloEO  ABSCISSAS 

C  SS  rs  ARRAY  OF  SPLINE  VA(_UES  .  SS1.SS2  DERIVATIVES 

c  LIMITATIONS  n  Not  i  ARr.ER  THAT  SO 

C 

c  THE  addition  OF  ThE  sOLINt  SUBROUTINE  HAS  MADE  IT  NECtSSARY  TO 
c  introduce  some  mew  symbols  and  arrays 

C  FRS  .  =  .  prror  TOI  rRAMCF  IN  THE  ITERATIVE  STEPS 

C  XI2R>  .=.  work  ,PsCP  edr  array  OF  STRICTLY  INCREASING  ABSCISSAS 

C  Y(?7>  .=.  WORK  SPACE  FOP  ARRAY  OF  ECT  VALUES 

C  XX (72)  .^.  WORK  SoAEE  FOR  DESIRED  ABSCISSAS 
C  SS  ( 721  .  =  .  SRLInE  VAtUE  OF  U 

C  SSI  SPLINE  VA|  UF  OF  FIRST  DERIVATIVE  OF  U 

C  SS2<22)  .  =  .  SPLINE  SFCONO  DERIVATIVE  OF  U 

C  O'lA  .-.  TMTEGRAI  of  SS  FROM  XII).X(NN) 

C  USR|  NI2P.72)  .  =  .  tEmoORaRY  WORK  SPACE.  USEU  BETWEEN  RMO-sPLINING 

C  AMO  ZED  SPLINING 

C  ms  .«.  MO.  OF  GIVfN  DATA  POINIS 

C  NS  .  =  .  NO.  OF  SULTNF  INTERPOLATED  ARGUMENTS 

C 

C 

- - - PROGRAM  STATEMENTS - - - - — - - 

c 

c  wr|ye  kopogram  tfmps  -  a  program  for  falling  a  subrouting  cyltmp. 

C  WHIrH  us^s  PROG< Am  TFMR4  MODIFIED  AND  DETERMINES  H  AND  BETA  FROM 

C  EXPERIMENTAL  runs  op  TEMPERATURE  VS  TTME.< 


C 

wol'E I0.7ISI 
WO!tEI6.»I6> 

WR|yEIB.717I 
wol .£ 16. R| B) 

C 

CALI.,  datinit 

WR|TE(5.7nn) 

CALI  CYLTMP 
WR| tE (5. 7| 0 1 
w°I»E(5.7B0l 
C«Li  EXIT 
C 

RlO  Fop..AT<6p|2.S) 

PIS  FDR. ATdHO. ‘PROGRAM  TEMR5  -  A  PROGRAM  FOR  CALLING  A  SUBROUTINE*) 
?l6  FoR"AT(lwft,»CYLTMo,  WHICH  USES  PROGRAM  TEMP4  MODIFIED  To*) 

7 1 7  FOR"AT<  mo. ‘DETERMINE  H  ANU  HtT A  FROM  EXPERIMENTAL  HUNS  OF  •) 

?18  FoRwATdwO. ‘TEMPERATURE  VS  TIME.*! 

TOO  FORMAT ( 1H0 .»  WORK  OF  DATINIT  COMPLETE  -  RETURNED  TO  TEMPs*) 

ill  FnRHATdHO.‘woRK  or  fyltmp  complete  -  returned  to  temps* i 
T20  FOR"ATdwO.»END  Op  qi|N»| 

C 

■’  END 


0008*30 
000840 
000850 
030860 
000870 
000880 
OoOSRO 
000900 
030910 
6 0 0920 
000930 
000940 
0O095O 
000960 
OU097O 
030980 
630990 
Ooiooo 
001010 
60 1020 
001030 
001040 
OulOSO 
OO106O 
001070 
(K  1080 

00io9o 

OOiioo 

001110 

0U1120 
001130 
001140 
601150 
001160 
601170 
001 180 
631190 
601200 
661210 
601220 
031230 
001240 
661250 
001260 
001270 
631280 
631290 
63 1300 
631310 
631320 
031330 
631340 
66)350 
001360 
631370 
001380 
001390 
001400 
66|410 
66)420 
631430 
661440 
001450 
001460 
001470 
061480 
001490 
061500 
601510 
631520 
661530 
661540 
601550 
001560 
661570 
661580 
001590 
601600 
661610 
661620 
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A.2  Subroutine  DATINIT 


C 

C. 


10 


15 


20 


25 


30 


35 


AO 


45 


50 


55 


40 


65 


70 


SUBROUTINE  DATINIt 
real  LMDA.  Mil 

COMMON  A(82) .B<82) ,C(82) .0(82) ,UPRIM(R2> .RHO (82) ,RF IN182) • 
♦U(8P«22)  .((STAR  (82,22)  ,0(82,2?)  ,UEIN<8?,22>  »USPLN(82,22>  • 
♦7EIW<22) .ZE0I22) *E(4) ,6(4)*H(4) «lH0A,mU*NN*M1 *N1 ,M2,N2»Nf 


RFAl  NX.K.IO 
INTfGER  ol,Zl*R? 

INTEGER  04TAIN 
DIMfNSIOM  OATAIN ( 100 , 3) 

COMmON/RLOCKI/ 

♦  n.I2,I3,I4,I5.I6»I7.M»N,MI.NI.lCNT,lU»IO,NO,NMjt,iRUN, 
♦ICAoO.IorINT,  IPNCh.  !TAP3,lTAp4.RH01,RHOi2,ZEDl  ,  ZEOl2,UTA|)0, 

♦  TAUmX.TAIIOFF.SIG  .nO.UO*  EPS.G1  (4)  ,H1(4)  ,MATER,NX,tjET«» 
♦K.LaMBDA.S1R.S1T,S2p,S2T, 

♦OEN.CP.R.EXPER.PW.Rl .21 ,R2, IPLOT.PROBnO'TICU.XLEN, YLEN.SfALEX. 

♦  SCAl  EYI.sCALEY2,Xt1TLEI5) • VTI ILEl 15) ,yT1TLE2(5) .NAME 
EOUtVALENCE  (ll.OATATN) 

DATA  (DATAIN(I«I),I  =  1.9?)/7*2»80.20»3«1»0»1.2»11.10(>,4,6.6.3. 

♦4,0. , 1 .,-.5546,1.1099, .0035,5. .5. , . 1292,2*0. , .001 .4*0* ,0. .3*. 015, 
♦IHKrL, 1.47, 4. 8E-4.. 0453,1 0.6.-.34E-5, .05E-S, . l£-5,-. lt-5. 1.98, 

♦  ,49l ,1.258. 1H 1,24. 7. 8 1 . 1 1? 1 ,1 7487504. . 5,20., 9. .30. . . 1 , • 1 . 
♦10Ht1mE(5EC0N.3hDb) ,3»1H  » lOHTEMR-DEGC  ,lOH  ABOVE  AMB, 

♦  3*lM  .IohmEAN  TEMo  • 1  Oh  ABOVE  AMB.3»lH  .7HBARRETT. 

♦  IOHrADIAi  015,1 OHtAmCE.RMO-.AH(Cm) , 1H  ,1H  .10HAX1AL  DIST. 
♦14HaNCE,?-(CM.lH) ,1H  ,1H  / 

DATA  (OATAJNI 1.2) .Is) ,9?)/2HIl.2Hl2.2Ml3,2HI4.2HI5. 

♦  2Hl6.2Ml-f.lHM.lHN.2HMl.2MNl  .aMICnT  .2HTU,2MlU,2HN0,3HNMA, 
♦4hT9UN.5mICARD,6H7PoinT.5M1PnUH,5HITAp3,5M1TAP4.4HRH01 , 
♦SH9H0l2,4HZEDl,SH7En)2»SHDTAtll).5HTAllMX«6HTAU0FF.3HSI6, 

♦  2H06.2Hi(0.3HFPS.5Hf>)  (t).5MGl  (2)  .5HG1  (3)  .5HG1  (4)  .5HM1  ( 1)  . 

♦5HH, (2) .5HH1 (3) ,5hH1 (4) , 8HMATtRI AL . RHpEF . IND. .4HBETA , 

♦  9HT  hER.C9NO,6HLAMBOA • 3M51R, 3H51 T , 3HS2P .3HS2T , 

♦  7H0fNS1TY»9hSPEC.‘EAT«6HRaDIUS,5HEXPER« 

♦  3HPVIR  .3HRl,.3H71«.1HR2*.VHP|  T?1Y,2N.6HPR08N0,4HT1GU. 

♦  4HX(  EN.4HYLEN. 7HX-5CALE.8MYl-eCALE.RHYZ-SCALE.6HXllTL9, 

♦  lH2,lM3.1H4,lM5.7HYmLFl,lH2.1HT,lH4.1M5,7HYTITLE2,lM2, 

♦1H3.1H4, IHS.BHOPFpATOR. 3HXT1 ,3HXt2.3hxT3. 
♦3HXt4.3HxT5.3HYT1,3hyt2,3HYT3«3HYT4.3hYT5/ 

0A7  a  (DAtAIN(I,3).I=1.9?) /22*0« 19*1 ,-|. 11*1, -1*1, 4*0. 

♦-1 .6*1 ,P6*-1/ 

I1=t2=I3=I4=I5=I6=17=? 

ICArO=S 

INOtC=0 

jpbtNT=6 

ITAo3=3 

!TAn4=4 

M  =  8A 

N=2f 

Mt=ul*l 

ICNt=1 

IU*0 

10=,' 

N0  =  7 
N«X  =  1 l 
I9U-i*100 
RHO 1 =0 . 

RHO, 2=1. 

7E0'=-.SS46 
7FO 1 2= 1.1 092 
OTAIl0  =  .0(,35 
TA(MX=5.n 
TAUhFF=5.0 
SIG=. 1297 
O0="0=0. 

E°5=.O01 

R1  <*  )=G1  C2)=Gin)=G114)=0, 

HI (>)=0. 

HI(,|=H1i3)=H1(M:.I)II3 

MATrR=10nKCL 

NX=i ,47 

BET  ft*4.RF-4 


001630 
001640 
0O165O 
001660 
0  01670 
001680 
001690 
0(11700 
0U1710 
001720 
0O173O 
001740 
OD1750 
001760 
06 1770 
061780 
OS1790 
OOlBOO 
001810 
001820 
001810 
001840 
001850 
001860 
001870 
001880 
001890 
0O19BO 
Olj  1 9 1  0 
001920 
001930 
06 1 940 
001950 
001960 
OS1970 
001980 
001990 
002000 
OU2010 
002020 
OU2030 
002040 
0O205O 
0o2060 
662070 
002080 
602090 
662100 
Oi)2110 
002120 
002130 
002140 
002150 
002160 
002170. 
002180 
002190 
0O2200 
002210 
002220 
0u2230 
06 2240 
002250 
Ou2260 
002270 
002280 
002290 
OU2300 
06231 0 
002320 
0u2330 
062340 
002350 
0O236O 


151 


75 


80 


85 


90 


95 


100 


105 


119 


115 


120 


125 


130 


135 


11*0 


31*5 


<  =  .->653 
0EN=1.989 
C“2.691 
0*1.258 

EXOrRsl(VJ»? 

to***. 7 
01  20 1 
Zl  =  d 
92=) 

IO(_oT21 

NAMr210HAAPRETT 

POOPN0M0H7204 

TtC'<2.5 

XLEm220. 

YLEv|2*£0 
SCAl£X212E0 
SCA|  EYl2.2E0 
5PA)  EY2=.?E0 

XTITLEdl210HTl9£<SECON 
XT1tLEI?)210HDSI 
YTfrLEl d )210HTEMP-nE0C 
ytitleu*»=ioh  above  amp 
YTtTLE2tl)=10HMPAM  TEMP. 

YT!tLE2(*)=  lOHARnVE  AMB. 

1?10  CAL)  OETnATA  iOATAt  U, 9?, 4.5. 6.3*  109»3fl0.  INDIC) 
V0ITE(IT«P3>  OAT  AtN 
NFS') 

Ml2"*l 
S1=M«1 
■v|**k1  ♦  1 
N02m1«1 

....CALCULATE  the  increment  array.  Ed)... 


c 

c.. 

c 


Rm«m 

RM*M 

Ed)  ■RHOl  2/RM 

E ( 2 ) “E ( 1 1 

E(3)*ZEntR/RN 

EI4)*E(3) 

OOHn*E  < 1 ) 

l37En«EOt 

NSE-i20 


.  INITI  ALT7E  U.OSTAH.O.UPRlM.A.BtC.D* 


on  *o  i  =  i.m2 

UORtMIIl  2  0. 

Ad)  =  0. 

Bd)  2  0. 

Cd)  =  0. 

nth  2  o. 

00  *0  J  =  1.N2 

ud.j)  2  uo 

lISTARd.  I)  2  0. 

29  (Hl.J)  2  0. 

IJSTaR.Q,I|PRIM.A.B,C.D.  initialized  to  zero,  u 
on  ol  I  2  l .mi 

00  *1  j  2  1 »N1 
21  UFIud.Jl  2  0 

UEIm  has  been  initialized  to  zero 

puts  ZET-1  -  COOPO  IN  7EIN1J) 

00  IT  J  =  1.N1 
,JJ  2  J  -  1 
Z.1  =  JJ 

17  ZEInIJ)  2  ZEOl  ♦  7J*OZED 


uo 


PUTS  PHO-COOPO  IN  RFINdl 

00  ) B  1=1. Ml 
II  2  I  -  1 


002370 
002380 
002390 
002*00 
002810 
0 02420 
002430 
002440 
002450 
002460 
002*70 
0o2480 
0.12490 
002500 
0 025 10 
0 02520 
002530 
002540 
0U2550 
002560 
002570 
002580 
002590 
002600 
602610  i 

0U2620 

002630 

002640 

002650 

0O2660 

602670 

002680 

602690 

002700 

002710 

602720 

602730 

662740 

662750 

002760 

002770 

002780 

662790 

002800 

662810 

002820 

002830 

002840 

602850 

002860 

0O2870 

662880 

602890 

662900 

662910 

662920 

002930 

662940 

002950 

002960 

002970 

002980 

602990 

063000 

003610 

003020 

003030 

663040 

663650 

603060 

663070 

603080 

003690 

003100 

663110 


152 


RI  =  IT 

18  RFImII)  =  RHOl  ♦  Rl*ORHn 


oilTR  HALF- INC  RHO-COOPD  IN  RHO(I) 


00  46  l  =  I 'M2 
T I  r  2*1-3 
PI  =  II 

46  PHO(I)  =  RHOl  ♦  RT»09HO 

ROI’,EllPOINT.2Ri1)  fI.OHO<!».t=l.M2> 


PUTS  HAl.F-INC  ZE0-COOR0  IN  ZEUIJ) 

00  .c.5  J  =  1.N2 
I  I  T  2*1-1 
»l  =  ,U 
P I  =•  RJ/2. 

SR  7F0fJ)  =  ZE01  ♦  R.I»O7E0 

HRItE(IppINT.29?I  (  I.ZEDUl  ».I*1*N2> 


OFBhG  PRINTOUT  COmTROLLEO  BY  13 


GO  TO  (2,3) •  13 

2  HPIt£  ( lPPINT*26n )  IJ 

Ha I tE (I POT NT, 260)  URTAR 
HRItE 1 1 Pol NT '260 1  0 
HRItE(IpoINT,260)  IJorIM 
HPItE ( I Pol NT '26ol  A 
WRItE(IPoINT«260)  R 
H°ItE IIppINT.260)  C 
HRTtE  < IPOTNT.260)  0 
hrItEUpoinT.260)  UFtN 

3  IF(|U.EO.O)  00  TO  3? 

RFAr>(  ICAoO,?25)  II 

3?  IF(tO'EO.O)  00  TO  3a 
IF(t0.E0.1l  00  TO  33 
RFA-MICApO.225)  0 
00  TO  34 

31  CALI  OAURS(IPRINT.SIO.RHO'M2.N2.0*00( 

34  00  tO  (3S«361.  14 

35  HojtE(IprINT'260)  U 

HR  I  tE  1 1  Pol  NT '260 )  <  <0II,J>*I=«:»M1>  «J*2.N1> 

36  NN  =  0 


HRItE ( IpoTNT*280) 


?10  FORmAT (6f1?,S) 

220  fpRmAT(7T5'T71'TS,ISI 

o2S  FORoAT (7F1 0.31 

260  FOR  •AT(Ih0.IC<E10.3.3X1) 

280  foBmAT(1HO.»ENO  OF  OATINlI*) 

090  F0RmAT(IH0'»I'RHO(I)  =*.5 115.7 8.41 1 
09?  F0RmAT(im0«»J'ZEO(J)  =*. 5(15.78. 4>> 
130  FORMAT <li IS.T71.IR. IS) 

331  F0RmAT(7TS*T71.I5.IS) 

■>35  FoRmAT(SF1?.5*T7  1.10,15) 

136  FoflMATIAFIP.S.TTl'lR.ISI 
ENO 


003120 

603130 

603140 

693150 

003160 

003170 

003180 

603190 

003200 

603210 

003220 

603230 

653250 

003240 

003260 

603270 

603280 

003290 

003300 

003310 

603320 

603330 


003340 

003350 

003360 

663370 

003380 

603390 

003400 

663410 

603420 

003430 

603440 

003450 

503460 

603470 

603480 

003490 

063500 

003510 

003520 

603530 

663540 

603550 

603560 

663570 

663580 

063590 

603600 

603610 

603620 

003630 

003640 

603650 

003660 

663670 

0636B0 

603690 

663700 

663710 

663720 


A.3  Subroutine  CYLTMP 


SUBROUTINE  CYLTMP 
REA|  LMDS.  MU 
COMmON/RLOCK 1 / 

♦  T1  4I2<13<I4<  T5«  16.17. M.N.Ml  «NI  . ICNT.IU.IG.NO.NMA.  (RUN. 

♦  ieARD.lPoINT«IPNCH»ITAP3.ITAo4,RH01.SH0l2.ZEDl.ZE0I2.l)TAiiU. 
♦TAUmX.TAi'OFF.SIG  .OO.UO.  tPS.Gl<4)«MI(4|.NATER«NX.(JETA. 

♦K. LAMBDA. SIR. SlT«s2o.S?T. 

♦  OPN.CPrfi4EXPESrPM.RI  .21  «R2« IPLOT.PROBnO.TICU.XLEN.YLEN.ScaLEX. 

♦  SCAl  EY1  .SCALE  Y2.  XT  tTI.E  <5)iTTTlLEl  (5)  .YTITLE2<5)  .NAME 

COMMON  A (82). 8 (8?)  .0<R21  .U0RIM1R2)  .RM0182)  .RFIN<82)  • 

♦  1/(89.221  .l/STAR(82,2?1  .0182.22)  .UFIN(8?,22)  .USPLN182.22)  » 
♦ZFI«<2?) ,7£0(22)  .r  (41  .0.(41  «H(4)  .LM0A.MU.NN.Ml.Nl.M2.N2.Nr 

OTMrNSION  El  (82)  ,r2(R2)  ,X  (821 « Y( 82) . SR  (82)  «SS1  (82)  .SS2(8?)  . 

♦  01)4(82)  «YU(82)  .SRP(RR)  «XR<82).ZZ2<22)  .X2<22)  .T(l) 

MF(*.Y)  =  (2.-X»Y)/(2..X*T) 

OF(k.Y.Z)  =  2.«Y«Z/(?..X»Y> 

00  i2  I  =  1.4 
0.(1)  »  r.l  (I) 

12  M(li  *  HI (1) 

WRItE ( IPOINT.25S)  E 
0SHO  *  E(l) 

OZEn  a  f(3) 


. . NOW  WE  SELOAO  ASSAYS  H  AND  G  .  USING  FUNCTIONS  HF  ANU  GF 

C 

00  10  I  =  1.4 
G(ir*  GF(H(1)  *E(T)  .0(1)1 
10  H(Ij  M  HF (H( I ) .E ( T ) ) 


00  1  1M.M1 
RPR(I)afiFINd) 

00  4  T*1«N1 
Z7Z(I)*ZFIN(I> 

C . WE  NOW  WRITE  OUT  THE  NEW  VALUES  OF  ARRAYS  G  AND  H. 

C 

G 
H 


WPItE(IprINT.250> 
WRItE(IPRINT,245) 

TAU  ■  0. 

icntR  *  n 
NF  =  0 
TFIm  a  0.0 
MS»’ 

IF  (TAUOFF  .O.E.  TaUmX)  MS*1 


C  . . MAIN  ENTRY  FOP  NEW  l.A.D.  CYCLE 

C 

55  OTAm«OTAUO 

40  IF(mN.GF.NMX)  GO  TO  45 
IF  fNn  .FO.  0)  GOTO  45 


conditional  calculation  of  utau.  when  nn.lt. nmx 


RNN  ■  NN 

RNO  *  NO 

REX  ■  RNN/RNO 

DTAli  «  0TAU0»2.»»oEX 


. . ..INCREMENT  T All .NN.ICNTH....... ........ 

C 

GOTO  (330. 340. 380. 310)  MS 
IF  (TAU.?EO»OTAU  .LT.  TAUOFF)  GOTO  330 
MS«3 

OTA|)*ITAUOFF-TAU) /2E0 
GOTO  330 
MS*4 

00  ISO  Jal.N2 
00  TSO  Ial.M2 
Od,J)aOEO 
CONTINUE 

G(ljaG(2)aG(3)aG(4)=0. 

NN»0 
GOTO  55 
TAU=TAU»OTAU 
NN  a  NN  .  1 
ICNTR  *  ICNTR  ♦  1 
LMD|  a  OTAU/ORHO**2 
MIJ  ,  0TAu/0ZE0**2 
GO  TO  (47.481.1? 

47  WRITE  ( IPRINT. 265)  tAU.LNOA fMU.NN.NO.  ICNT*  ICNTR 


154 


004300 

004310 

0U4320 

664330 

004340 

604350 

004360 

604370 

004380 

6043R0 

004400 

004410' 

054420 

004430 

604440 

004450  i 

004460  < 

004470  i 

004480 ] 


0O44R0 1 


7-.~r-.-v  ^ 


/ft 


4*  00  <0  1  -  2.M1 

=  HI3l*UII,2l.Gn) 
t|(!.N2>  =  H(4»«ul1*M|»«r,<4) 

Alt)  =  LMDA«(l.-EUI/o./«M0<t>> 
out  =  -(2.»LMD4*|.) 

50  CUi  =  tM0A»a.*Efl)/2./R"O(IM 
C 

C  COMPLETE  THE  BOROrRTMG  OF  THF  COMPUTATION  LATTICE 
C 

no  t3  J  =  2.NI 

IIU.JI  =  H(1I»UI2.J»*GU) 

13  l|<«o.J)  s  HI2)»U(m1.  II*G<2> 

C 

C  ...TOUCH  UP  of  COEFFICIENTS  BUI . 

R(?t  =  0(2)  ♦  A(2t»H(l) 

BIMil  =  R(Mll  ♦  C(M|)«H(2) 

00  TO  J  =  2.NI 

00  f, 0  I  =  2. Ml  . . 

60  OUi  '*  -ul|»<U<I.J*l)-2.»U(l»J)*U(I,J-ll)~0TAU»Q(I.JI-U<l.J) 

C 

C....  TOUCH  UP  OF  the  0  COEFFICIENTS . 

C 

0(2t  =  0(2)  -  A(2)»c,(l) 

0(Mt)  =  n ( M l )  -  C (M) t *0<2I 
CALI  TRIOAGI2.MI .a.R.C.O.UPRIM) 

C 

c...,wE  have  just  solved  the  triuiauonal  equations...... 

C....THF  oEsULTS  APE  STORED  IN  UPRIM..  THE  CONTENS  OF  UPRIm.a 
C....MIIST  NOW  RE  TPANSFFRED  TO  COLUMN  .1  OF  ARRAY  USTAR.....V 

c 

no  63  KK  =  2. Ml 
00  -rQ  (63.64)  .  13 

63  W9ItEUPpINT«28')  KK.A(KK)*B  (KK )  .C(KK)  .l)(KK)  .UPRIM  (KK ) 

64  00  yO  K  =  2.M1 

TO  USTaRIK.  I>  *  UPRTM(R) 

c 

c 

C  calculate  U  ON  ROi iNOAPY  ANU  EVEN  LATTICE  POINTS  BY 
C  8ENOOW  INTERNAL  SoL IMF  EXTWATOLATION  tO  BOUNDARY  POINTS. 

C 

IF, (ICNTR.GT.l)  00  TO  16 
NF  =  NF»1 
TRIm  =  TAll  -  OTAU 
C 

C  RENnOW  MODIFICATION  OF  SPLINE  INtERPOi.ATION  BEGINS  AT  THIS  POINT 

C  IT  cONAlSTS  OF  RXtRAoOLATIONS  TO  THE  BOUNDARY.  USING  SLOot  SSU 

C  ANO  VnLUtr  SS  AT1  IMTFOIOP  POImIS  pHO (?)  .RHO (Ml )  .7E0  (2)  *4tn  (N1 ) . 

C  OTHfR  CaiCULATIONS  A°E  MAUE  RY  ThIPO  ORDER  SPLINE  INTERPOLATION 
C  ANO  THE  ACCURACY  OF  THE  INTERPOLATION  IS  CONTROLLED  BY  ThE 
C  CHOtCE  OF  OF  EPS 

C 

C  THF  FIrcT  STEP  In  THE  PROCESS  IS  SPLINE  INTERPOLATION  OF  U(I.J) 

C  RELATIVE  TO  RHO-VaLUFS.  INDEX  I. 

C 

on  (60  I  =  2.M1 
)60  XU-1)  =  RHO  ( I ) 

00  >61  J  =  1 .Ml 
163  XP(  |)=Rpo( J) 

XR ( > )  =  DHOl?) 

XR(ul)  =  RHO (Ml ) 

00  >6?  J  =  2.N1 
on  >63  I  =  2. Ml 
163  YU-1)  =  ll(I.J) 

C 

C  IF (  i.GT.3)  GO  TO  ) 

C  WRITE ( IPPINT.21 " ) 

C  WRItEUpoTNT.200)  X 

C  WPItE(IpoINT.200)  Y 

C  WRITE  II ppINT.200)  XP 

C  1  CALI  SPLN!  (M.M1,EpS.X.Y.XR>SS>SS1>SS2 .QUA) 

CALI  SPLNT (M>Ml . EoS.X  * Y.XH.Ss.SSI .5S2.QUA) 

C 

C  SS  AND  SSI  APE  IISFO  AT  THt  ENU  POINTS  IN  THE  B8  VERSION. 

C 

00  >64  KS  =  1.M1 


004520 

004530 

004540 

004550 

004560 

004570 

004580 

004500 

00460  0 

004610 

60.4620 

004630 

004640 

004650 

004660 

004670 

004680 

004690 

004700 

004710 

OJ4720 

0U4730 

004740 

004750 

004760 

004770 

604780 

6047R0 

0u4800 

004810 

004820 

604830 

004840 

0J4B50 

604860 

004870 

004880 

604890 

0049OO 

004910 

0U4920 

004930 

004940 

604950 

604960 

604970 

004980 

0O4990 

Ou5000 

605010 

605020 

605030 

605040 

665050 

665060 

OU5070 

605080 

0U5090 

0051 00 

0U5I 10 

605120 

005130 

6x5140 

0o5150 

Qu5160 

005170 

01/5180 

605190 

005200 

005210 

6x5220 

005230 

005240 

005250 

005260 


-a  wwttrtwi 


164  i|S°f  NIKS*J)  =  S^(KS) 

FXT^APOl  ftTION  TO  RO'«K»n&PY*  USING  SS  AMU  551 
lisp,  N  fl.J)  =  ssn>.tPFiN<n-Knot2>  >«ssm> 

IISOl.N  (Ml  •  J)  =  SStMH.(RFlN(Ml)-RHO<M1>>*SSIIMl( 

1 62  CONTINUE 

Nr  WON  H«VE  even  Rho-INTERPOLATEO  VALUES  OF  U.  WE  NttU  tVEN 
7ED- INTERPOLATED  ./Al.llES  OF  U  10  INSERT  IN  UFINtl.J.K). 

THE  FOLLOWING  step  OOFS  SPLINE  INTERPOLATION  IN  THE  ZtU-nlRECTION 

00  ’66  T  =  2«N1 

166  X(T-lt  =  ZEDCl) 

00  ’67  .1  =  1  •  N I 

167  X7<  0  77 ( J ) 

7,7  ( 1 )  =  7E0<2) 

X 7 ( Ml )  *  7E0(NI) 

00  ’ 60  I  =  1«M1 
00  ’60  I  =  2«NI 

169  V(J-U  =  USPLNIT.  I) 

C 

c  TFtT.fiT.71  GO  TO  7 

C  WPItE ( I09lMT.21't 

C  w  9 1 ▼ E  t 1 P  R  T  N  T .200)  x 

C  HO1tE<IP7TNT.200)  Y 

C  WPTtEMppTNT  .2001  X7 

C  2  CALI  SPLMI  (N’Nl.EoS.X.Y.XZ.SS’SSl  .S52.QUA) 

CALI  SPL’iT  (N’NI . El’S. X.Y»X2«SStSSI«SS2. QUA) 

C  THE  INTERPOLATED  oEsilLT  IS  NOW  STORED  IN  UF  IN 

C 

00  ’70  .1  «  l’NI 

170  UFl’HI.J!  =  SSt.ll  ,  .  „  CC1 

c  EXTRAPOLATION  To  pOumOARY.  USING  SS  AMD  SSI 

liriMtT.il  =  SSt  1. 1 » 1 7CIN ( 1 1 -2EU 1 2) ) »SS\  ( 1 ) 

UFlMtI.Mll  =  SStNl)*(7FTNlNll-ZEO<Nl))*SSl(Nl) 

1 60  CONtINUF 

C  THIS  C0MOI  FTFS  THF  CALCULATION  OF  UFIN(I.J)  FOR  THE  CURKFNT 

C  VALUE  OF  k  =  NF  8v  THton  OHOFK  SPLINE  INTERPOLATION  ANO 

c  extrapolation  to  thf  pounuartls. 

C 

00  l 30  I  =  I. Ml 
no  ’ 32  I  =  1.  N1 
1 3?  YUt  1)  =  ilFINtl  .  0 

Ca'l  SPl.Ml  (Ml.  I  .fps.7ETN.TU,  I  .SS. SSI  .SS2.QUA) 

130  rt  til  =  OllA(Nl) 

c 

C  THIS  COMPLETES  THr  CALCULATION  OF  FI 

c 

00  *36  I  =  1 .Ml 
136  YUtT)  =  Fl  tl)*RF!Mtn 

T ( 1 1  =  OFINt 1 )  „ 

CALI  'sPLmT  (Ml .  1.EDS.RFTM.YU.T.SS.SS1.SS2.QUA) 

00  .'38  TT  =  2.M1 

)3H  f?(tI)  =  nilA  ( l  II/rFI'-M  IT  >  **? 

FR(i)  =  P.S»F1 ( t  > 

c 

C  THIS  COmpLETFS  THf  CALCULATION  OF  F2 

c 

■ipItE  <  IT  'P3)  NF.TfIm.PFTN.2FTN.UFIN.F1.F2 
C 

C  [r  il  =  I  TYPE  PUT  rj  AMO  F2. 

C  if  tS  =  I  TYPE  OUT  UFTM. 

C 

IF(T I .EO.p.AmO. JS.Eo.P)  goto  jto 
IF(rl.NE.l)  GOTO  771 
WRITE  t IppINT. 30  1 
00  373  Trl .Ml .S 

170  WRItE  (TpRINT.3R|1  T .Fl t ! > >F?  1 1 ) 

071  TFttS.NE.Il  GOTO  77" 

WpTtE ( IprTNT.3871 
00  074  T r 1 . Ml *S 

074  WPI ▼£ ( 1PRINT.3B01  I.tLIFTNtl.  ll.  Irl.Nl.S) 


035270 

005280 

665290 

005300 

66*5310 

005320 

005330 

005340 

605350 

005360 

005370 

005380 

005390 

005400 

605410 

605420 

005430 

005440 

005450 

005460 

005470 

005480 

005490 

005500 

005510 

00552O 

0U5530 

605540 

0o5550 

005560 

005570 

605580 

605590 

005600 

005610 

605620 

005630 

6u5640 

005650 

005660 

005670 

605680 

0J5690 

005700 

005710 

605720 

005730 

005740 

605750 

005760 

005770 

005780 

005790 

005800 

.605810 

005820 

005830 

005840 

005850 

0U5860 

005870 

605880 

005890 

665900 

005910 

005920 

005930 

66*5940 

0o5950 

005960 

665970 

035980 

605990 

0U6000 

0O6010 


171  contTniif 

C  T«t  RECORD  OF  T^E  so*.  INF"  CALCULATION  ANO  INTEGRATION  HAVp  8EEN 

C  WRITTEN  AS'  THE  »iE»T  QFCoR  ON  IAPF  3. 

. . thts  is  the  eno  of  the  first  hai_f  of  the  i.a.d.  cycle.. 

C.#...  THr  INTERMEDIATE  ARRAY  USTAR  HAS  BEEN  CALCULATED. ... r • ? 

C 

IS  TAIJ  =  TAH  ♦  UTAH 
NN  =  NN  .  1 
C 

. . .  apply  the  rho  boundary  conditions. . . 

c 

00  SO  J  =  2.N1 

ustar(1.i)=h(1*»ijsTar(?.j>»gm> 

USTaR(M2,  J)=H(2)"iiStaP(m1»  J)  *G<2) 

A(J|  =  MU 

B(Ji  =  -<2.»mU»1.i 
80  C(.l)  =  MU 
C 

c . coefficient  B  touch  up.... 

c 

8(2)  =  fl<2)  ♦  A(2i»H(3) 

BIN. )  =  RINl )  ♦  C(N1 >»HI4> 

C 

c . cai dilation  of  coefficients  u  ........ 

c 

no  >00  i  =  2. mi 

DO  AO  J  =  2. Ml 

Of  J>  =  -LMnA«(USTAR»T*I.Jt-2.,USTAR<I.J>»USTAR(!-l.JI> 
o < .1  >  =  m  u-  LMIIA»0PHO/2./RHO(  I  >  •  (USTARI  I»I«  JI-USTARI l-l.  J)  > 

80  0(J|  *  OfJI  -  0TAII*O(T «.l)  -  USTAP(I.J) 

C 

C.,.,  TOUCH  UP  OF  THE  0  COEFFICIENTS.  • .  • 

c 

0(2i  =  D(2>  -  A ( 2i *c, (31 
0  IN' )  =  OIN1I  -  C(NI)«G(4) 

C 

C . CA|  I  TRIOAG  TO  soi  VF  THE  THIOlAGONAL  SYSTEM  OF  EQUATIONS,. 

. . THE  RESULT  WILL  rE  RETURNtD  IN  UPRIM  ARRAY . •••••* 

C 

CALI  TR!0AG(2tNl .A .R.C.O.UPRIM) 

00  o3  KK  =  2.N1 
00  TO  (83.94) *  1 3 

93  A'll  WE  (IP1  >INT.28R)xK«a  (KK)  »B(KK)  .C  (KK)  ,D(KK)  . UPRIM (KK) 

94  00  '00  .1  =  2.N1 
100  UM.J)  s  UPRIMI.ll 

If (tCNTQ.LT • ICNT )  GO  TO  40 
C 

. . ...AT  EACH  RETURN  TO  40  BEGINS  ANOTHER  I.A.D.  CYCLE... 

r 

ICNtR  -  C 

GO  eO  111  1.112). IT 

111  CONTINUE 

WRItE(IRRINT.27i)  TA'l.OTAU 

00  (10  I  =  2, Ml. Mr 

WRITE  I IPRTNT  *27S)  I.rHO(I) 

1 10  WRITE  (I  PRINT.  320)  (U  (  T .  .1)  .J=2.N1.nI  ) 

112  CONtINUf 

if  ( tAII.I  e.TAHMXI  so  to  40 

c  W 'EH  TAU  EXCEEDS  tAUmX.  THIS  SUBROUTE  RETURNS  TO  THE  MAIN  PROGRAM 

C  TginoS,  AFTER  PRINTING  ftAU.gT. TAUMX  -  CYLTMP  RET  TO  TEMPS' 

. . . . .fno  of  i.a.d.  cycle  . . . 

W9ItE(IPRINT.1D 

RETURN  _  _ 

11  FoRmAT(1R0.*TAU.Gt. taiimx  -  CYCLTmP  RET  TO  TEMP5") 

R00  FOP-AT(luO.lOFln.A) 

?I0  FOO'-ATl  IHO.AOEB  IG'X  X.Y.XX*) 

Q4S  FOR’.'AT(1HO.»H1.H2,H3.H4  =•  .4  ( 1 1  0 . 3. 3X )  ) 

2S0  FOR’*AT(1HO.*G1 .02.G3.G4  =*.4  (El  0. 3. 3X) ) 

2SS  FORhAT  ( IMG. »F1  .F2.E3.E4  «*»4(E10.3«3X) ) 

P6S  FOPuAT  ( iug«»TAU.LuDA  .MU.NN.No*  ICnT »  INcTR  =*»3<EI0.3«3X>/Al5) 
s7 fi  FOR  <AT(1HO.*TAU  =  •.FlO.S.^OTAU  =  ».El0.3) 

?7S  FoR>«»T(1HO.»I.RHo  =»1S,F10.4) 

RflS  F0O'»AT(1H0.I5.3<.s(F10.3.  JA) ) 

320  F0P-AT11H  .10(£10,3.3X) 1 

380  FORMAT  (X.IhO.*  T*»7x.*F 1 ( l)*.8X.*F2(I)*./) 


006020 

0061)30 

006040 

006050 

006060 

006070 

006080 

006090 

006100 

006110 

006120 

006130 

006140 

006150 

006160 

006170 

006180 

006190 

006200 

006210 

006220 

006230 

606240 

Q&6250 

006260 

00627O 

006280 

OU6290 

006300 

006310 

006320 

006330 

006340 

006350 

006360 

006370 

606380 

006390 

006400 

006410 

006420 

0U6430 

006440 

606450 

006460 

006470 

606480 

606490 

OU6500 

006510 

606520 

006530 

006540 

006550 

006560 

006570 

006580 

006590 

606600 

006610 

006620 

006630 

006640 

066650 

006660 

606670 

066680 

006690 

606700 

006710 

006720 

006730 

606740 

606750 

006760 


UWrt  »  **'  i-i 


n  nr,  oon  nnoooono 


«ai  FQR.<AT  < iH0*T5*2(3X.f)O.3> > 

18?  FQRhAT  »  ? » 1  HO  **  T».10X»*UF1N(I.J)  FROM  J*  1  TO  Nl  **/) 

-i8T  FORMAT  (IHO«I5,10(3k.F10.3> * /• 1H0* 1  OX ,9 (3X.E 10.3) */• 

♦  iM0.23x.4nx.Ein.->) ) 

END 


006770 

006780 

066790 

066800 

666810 


A.4  Subrouting  TRIDAG 


SlIrtsOUTINE  TRI04G  < TF.LiA*B.C*D*V) 

THF  SUBROUTINE  FOR  SOLOING  A  SYSTEM  OF  LINEAR  SIMULTANEOUS 
EQUATIONS  HAOINO  A  TRIOIAGONAL  COEFFICIENT  MATRIX. 

THE  EQUATIONS  are  NUuREREU  FROM  IF  THROUGH  L*  AND  THEIR 
SUB-DIAGONAL*  DIAGONAL*  ANU  SUPEo-OIAOONAL  COEFFICIENTS  ARE 
STORED  IN  ARRAYS  4*8*0.  7HE  COMoUTEO  SOLUTION  VECTOR 
vein . .  IS  STOREO'IN  ARRAY  V. 

OIMtrNSION  A(l>  *8(1)  .CM)  *U<1>  *VO)  .BETA (82)  .GAMMA (B2) 

....COMPUTE  ARRAYS  SETA  ANU  GAMMA . . 

8FT  a  ( IF)  =  8  ( IFl 
GAM...A(IFI  =  OUF)  /BETA  (IF) 

Irp  *  a  IF  ♦  1 
DO  »  I  =  IFPI.L 

8FT  a  ( I )  =  B(I)  -  A(H»C(I-I)/BETA(I-ll 

1  GAMyA(I)  *  (D(I)-A(1)»GAMNA(T-1))/BETA(I) 

. • . • .COMPUTE  FINAL  SOLUTION  VECTOR  V  .»•»?• 

V  (L  i  «  GAMMA(L) 

LAST  *  L  IF 
DO  •*  K  =  l.LAST 
I  =  L-K 

2  Vdi.  =  GAMMA(I)  -  Cl|)*VllM)  /BETA  ( I ) 

RFTiiRN 

C 

E«D 


006820 
006830 
056840 
006850 
606860 
606870 
006880 
606890 
006900 
006910 
006920 
606930 
6 06940 
006950 
606960 
606970 
006980 
606990 
607000 
007010 
067020 
007030 
067040 
067050 
007060 
007670 
667080 
007090 
607100 
667110 


oonoooooooooonoo 


A.5  Subroutine  GAUSS 


RUrROUTTNE  ‘GAUSS  f  l°RINT.SIG.RH0.M.N.O*Q0> 
DIMfNSIOu  RH0I1)  .o(M.N) 

IEIrIG.EO.O.I  GO  TO  20 
SIGr  =  srr,»»2 
IE(o0.GE..001>  GO  To  5 
1000  09  =  . 5/SIr? 

*5  Ml  =  M-l 

N1=M-1 

no  10  i  =  2. mi 

RHQR  =  RHO(I)*»? 

otesT=.s*rho2/stg2 
\f  (QTEST  .GT.  220.)  1020*1030 
1020  00  =  *!. 

GOT  n  1040 

1030  QO=n0»EXP(-QTEST) 

1049  CONTINUE 

00  VO  J  =  2.N1 
lo  ou . Ji  =  on 
RFT'IRn 

20  MR t  tE  < I  PR I NT* 1001 

ion  FORMAT  ( 1H0«»SIG  =  0.  DEFAULT  OPTION  IS  Q  =  0*1 
RETURN 
ENo 


A.6  Subroutine  SPLNI 

SUBROUTINE  SPLNt  (M.>1.FRS.**Y,  I  .SS.SS1.SS2.QUA1 

ETNn  THIOO  ORDER  sP|  TME  EOT  TOR  A  FCT  Y IX)  GIVEN  AT  THE 
POINTS  (Xtl).Y(IM 

FOLLOWING  CHAP. S  oE  VOL 2  OE  RALSTON  ♦  WILF 
N  =  NO. OF  GIVEN  Data  points 

M  -  NO. OF  SPECIFJFO  arguments  T(  I)  for  vhich  the  spline 
SS* ITS  first  OEo.SSl  AND  SECOND  DER.SS2  ARE  TO  BE  COMPUTED 
for  *  ERROR  TOLfRaNCE  IN  ITERATIVE  STEPS 
X  =  ARRAY  OF  STRICTLY  INCREASING  ABSCISSAS 
Y  =  ARRAY  OF  FCT  VAI.IIFS 
T  =  Array  pf  DEsioEn  abscissas 

SS  T  ARRAY  OF  S°LtNF  VALUES  .  SS1.SS2  DERIVATIVES 
QUA  =  Array  OF  VAi  Ufr  OF  INTEGRAL  FROM  Xtll  TO  X(N) 
LIMITATIONS  N  NOT  LARGER  THAN  50 

DIMENSION  X(l)  .Y(ll.Td)  .SSI})  .SSKl)  .SS2111  .QUA  1 1) 
OIMrNSION  H  <82).H2(ft2).DELY(»21.B(B2).DELSY(B2> 

OImcNSION  S2(B2) .S3IB2I 
DATA  OMEGA/I. 07I7O6R/ 

NI=M-I 

3  DO  R 1  1=1. Ml 

Hill “XII. I) -XII) 

Sl  OElvII)=(Y(I.1)-Y(I))/hiI> 

A  00  =2  I=R.NI 

H2(I)=H(1-1).HH) 

Bill*  .s, HU-11/  H2 1 1 ) 

OELrY  ( I )  =  tOEI.Y  ( 1 1  -DELY  ( I- 1 )  1  /H2  ( I ) 

S?(tl=2.*0ELSY<U 
5?  C(  I  i =3.*OELSY 1 1 1 
S2(t)=0. 

S2(m)=0. 

5  FTA=0. 

6  DO  10  1=2, MI 

7  W=(C(T>-BU)  *S2(T-I 1 -I .5-H  ( I )  1  »S?  ( I  »  1 1  -S21I ) )  »OMEGA 

ft  IF  lARS(w)-ETA)  In.IP.R 

9  ETA^ABSIW) 

IP  S?(t>=S2<I)*W 


007120 

007130 

007140 

0O7150 

007160 

007170 

007180 

667190 

007200 

007210 

667220 

007230 

007240 

667250 

067260 

007270 

007280 

607290 

967300 

007310 

067320 

067330 

667340 


007350 

007360 

007370 

0U73B0 

007390 

007400 

007410 

607420 

607430 

007440 

607450 

607460 

007470 

607480 

607490 

607500 

007510 

607520 

607530 

067540 

607550 

007560 

607570 

007580 

607590 

007600 

007610 

607620 

007630 

607640 

607650 

007660 

607670 

007680 

007690 

007700 

607710 

007720 

607730 


rap 


007740 

007750 

0J7760 

607770 

007780 

607790 

0O7800 

007810 

007820 

0u7830 

607840 

607850 

007840 

007870 

007880 

007890 

007900 

007910 

0U7920 

007930 

607940 

0O7950 

0J7960 

007970 

0U7980 

007990 

668000 

008010 


IF  (ETA-fRSI  14.5.5 
DO  S3  1=1 .Ml 

5 3 ( T >  =  < S? 1 1 ♦ 1 1 -5? ( 1 11 /H < !  > 

on  =i  ..i=i. m 

1=1 

IF  iTIJMIlll  5H.17.55 
IF  (T(J)-X(NII  57.59.58 
IF  ITT.It-XIIll  47.17.57 
1  =  1.1 
40  TO  54 
mh[tE  ('4,441  J 

FOR. AT  ((4,i>4HT4  argument  OUT  OF  RANGf) 

00  tO  61 
I  =N 
1  =  1-1 

hti=TIJ1-X(I> 

HT?=T(J)-X(I»11 

opnn=HTl»HT2 

SS2(J)=S2<I)‘HTl»s3(n 

05L5S=  (S’  II 1  ‘S2  ( 1 . 1 1  .SS21 J>  1  /6. 

48 (  i>=Y(t»  »HTl»0El  YIT1*PROO»OELSS 

551  ( J»  =OFl.‘(  (  1 1  *  <HTl  *WT?)  *UtL85‘PR00«S3  ( 1 1  /6 

CONTINUE 

2o  ouAfii  =  e.o 
no  <-2  1  =  1. Ml 

62  OI.IA  ( I  ♦  1)  =01 IA  ( 1 1  *.S*H  ( 1 1  •  <  »  <  1 1  *Y  (  T»  1 )  1  -H  <  I  >  * 

RFTiiRM 

FMO 


A.7  Subroutirw  GETDATA 


SUBROUTINE  OFTOATA  (OAT  AJNtNV.  I  IN.  I  OUT  1 • I0UT2. IIN1 « lSI2t  *08020 

♦  1 s t 2F T , T MO I C 1  008030 

C  thf  MAIM  PUonnsE  OF  ThIS  SUBROUTINE  IS  TO  INPUT  CHARACTER  STrING  OR  6v8040 

C  NUmE’TCaL  O.'TA  IN  A  :«lrOM¥FRSAT10N4|_*  MODE  I.E.  FOR  INPUTTING  DATA  008050 

C  TO  PROGRAMS  BEING  HON  IMOFR  INTERCOM.  ?U8)|8® 

C  IT  ALSO  MAY  BE  USEO  FOR  BATCH  PROCESSING-lN  WHICH  CASE  THE  UATA  “U8?70 

C  8H0UI  0  sPREAB  4  VALUES  Tn  A  CARO.  OATA  WHICH  IS  NOT  TO  BE  CHANGED  008080 

C  SHOULD  ’E  RE°LACED  by.  Bl  AN4S,  FOP  BATCH  A|_L  OR  SOME  OF  THE  OaTA  MAY 

C  of  UFF»  iLTEn  BY  USING  AM  EOP  AFTER  THE  LAST  OATA  TO  BE  INPUTTED.  008100 

c  thf  subroutine  assumes  that  default  values  have  been  assigned  ®®8}>® 

C  ANO  WTLl  PRINT  OUT  THrSF  DEFAULT  VALUES  BEFORE  ASKING  FOR  UATA  INPUT.  608120 

c  IT  ASKS  FOR  mFW  VALUES  By  opINTIMG  OUT  THf  WNAMESI*  OF  THE  UAtA  AND  THEN  008130 

c  sKIPPTNr.  A  LTNF.  VAUIFS  TO  RE  ASSIGNED  TO  THE  NAMES  SHOULD  BF  008140 

C  FNTERFO  STARTING  IN  ThE  SAME  COLUMN  as  THF  START  OF  THE  NAME.  008150 

C  EACH  DATUM  TS  ASSIGNED  10  COLUMNS  AND  UP  TO  6  ITEMS  MAY  BE  INPUTTED  0U8160 


OIMrNSION  DATAIN(tSTTET)*1A(6> 

COMijON/RtNSE/I  INNm.  TDtITNN.  1ND1CC 
INTfGEW  DATA1N.F 
EXTERNAL  55WTCH 
CALL  ERRGFT (KOIJNT *26000) 

KO)JmT1=kdUNT 

if ( tndic.ne.oi  200.no 
200  igw=2 

LL  =  " 

L=MOIC-l 
GOTO  1C55 
219  CONTINUE 
IGW  =  1 

moi  *ooflAoaoooooOAOonoos3B 
urmn=1in 

tOUTNNMOUTl 
IGUtT=IomT1 
I8N  =  1 

IRL«NK=|=.H 

CALI  SSWTCHM  ini  I  tSW3»  10HREAD  DATA  .ShFILE-1  .RETURNSUO60I 
IF  flSWl  ,FQ.  II  t3nn,I?'J0 

noo  write  (i-ii.in.i7i  nut 

RFW?NO  I  TNI 

rearm  inti  datatn 

REWIND  1TN1 

IF  (EOF(TIMl)l  1460. |?90 
1400  WRlrElIGUT 1.241  UNI 

ir9o  continue 

CALL  SSWTCH(0«I5W4«!0HDEFAULT5  L.SHISTEDl  .RETURNS  ( 10601 
IF  t 1  SNA  .N£.  1)  r,OTD  1 1  SO 
WOItEM0UT1.11 
H4o  oo  'in  m.Nv 
U  =  rSIZF.l 
111=1 

I  T?  =  M  ♦  TGIZE 

if  lOATATNimn  1  0T»0. 103O»  10^*0 
lf)2n  WRITE  ( IOUTT  «21  riATAIN(II)»UATAIN(ni) 

GOTO  no 

1030  WRITE  < IOUTT. 31  DAT AIN( U ) «DA I A  IN ( 1 1 1 ) 

GOT  n  110 

10*0  WRItE(I0MTT'4)  DAtAIM(IT>*UATA1N(II1) 

no  continue 

goto  ( 1 IGO. 1130)  TSN 

1)50  CALL  SSWTCH((J*ISWE«lAHNAMt-VALUE.5H  MODE1  .RETURNS  U06U1 
IF  (ISWF  ,Ed»  is  12T0'10S>« 

1050  L=1 

ISW=2 

LL»- 

ln55  L*L«LL 

IF  (L  .GT.  NV)  GOTO  1060 

nio  write  ( iouti •  1 0 >  ratainiisize*li 
LL=" 

00  '00  J=l«6 
I A  (  i)=10w 
loo  CONTINUE 

RFAn(IlN.lO)  (I»(.|l.  1=1.61 
IF  (EOF(TIN))  1320.1070 
1320  INDfCCn 
GOTO  1060 

1070  IF  (lAlll  .EO.  TB(AMK)  GOTO  1055 
DO  1  SO  .1=1.6 
00  '80  K=1 .10 

IF  (MXGEtXIIAIJ) *K«1)  .EO?  IDOL)  GOTO  1270 

180  continue 

DO  »90  ,1=1.6 

:ir=l*j-i 

F=DaTAIN< JR*?*Ig17E> 

IF  (F)  loR0.1100.ni0 

1090  IF  tIAIJI  «NE.  TRlAmk*  DECODE110.11.IAIJ)>  l)ATAIN(JH) 
GOTO  1080 

1100  CALL  RJUGT IIA(J)  1 

IF  iIA(J)  .NE.  T8I.ANK1  DECODE  I10*12.IA(J11  DATAIN(JW) 
GOTO  10R0 

1 1 10  CALL  RJUGTdAUU  ,  , 

IF  IJAIJ)  .NE.  T8|  ANK1  DECODE  ( 1 0  •  1 3.  I A  ( J) )  l)ATAIN(JR) 
1080  IF  (IA(.J)  .EO.  T.RI.AMK)  fiOtO  lOfll 
IRO  CONTlNUF. 
loSl  LL*  1-1 

IFdNOIC.NE.Ol  LL=1000 
IF  (KOUNT  .EO.  KOiiNTl  1  GOTO  1055 


00B360 
008370 
008380 
0o8390 
0 084 00 
008410 
008420 
008430 
008440 
008450 
00846O 
008470 
0  08480 
,008490 
008500 
008510 
008520 
008530 
008540 
008550 
008560 
008570 
§08580 
008590 
008600 
008610 
0.18620 
0  18630 
008640 
008650 
008660 
0o8670 
508680 

008690 
006700 
008710 
008720 
008730 
008740 
008750 
008760 
0o8770 
008780 
008790 
008800 
0088IQ 
008820 
006830 
0oB840 
O08BSO 
000860 
008870 
'008880 
OoS890 
0O89OO 
008910. 
006920 
00.3930 
Ou8940 
008950 
008960 
008970 
008980 
008990 
009OOO 
009010 
509020 
009030 
009040 
0O9O5O 
008055 
009060 
PU9070 
009075 
009080 
Oo9090 
009100 
009110 
00912O 
0091 30 


009140 

039150 

039160 

009170 

Ov.9180 

009190 

009200 

009210 

009220 

009230 

009240 

009250 

009260 

009270 

009280 

0U9290 

009300 

009310 

009J20 

009330 

009340 

009350 

099360 

009370 

009380 

009390 

009400 

009405 

009410 

969420 

009425 

009430 

909440 

009450 

009460 

009470 

009480 

009490 

039500 

009510 

009520 

609530 

009540 

009550 

009560 

009570 

009580 

009590 

009600 

009610 

009620 

009630 

908640 

909650 

909660 

909670 

909680 


KOUmTI “FOUNT 
W9It£(I0i  1X1*25) 

1270  491  tE  ( 1 01  IT  1  *231 
1250  WPItE(IoUT)  *8) 

00  *50  1=1*6 
I  * ( t  >  =1  OH 
150  CONTINUE 

REAd< I  IN. 10 )  CIMT)  .1  =  1*6' 

IF  (EOF(llN)l  1336*1185 
1730  INDlCCM 
GOTO  1060 
1085  ll=T*(i) 

IF  (II  .rO.  1  BLANK)  ROTO  1060 
DO  »30  I=1.NV 

IF*  I II OATAIN(.I))  ROTO  1160 
130  CONTINUE 

•  W»1tE(I0UT1*16I 
GOTO  1271 

1 1 60  F=D4TAlMf J‘ISIZEI 
J)=  I-ISIZE 

IF  (F)  1170*1180*1190 
1170  00  160  1=2.6 

IF  ( 1 A < I )  .EO.  101 ANK  .AND.  l.GT. 
OECoOE ( 10*11. IA(Il)  OATAINI JJ*I"2) 
160  CONTINUE 
'  GOTO  1240 
1180  CALL  RJU5T(IA(2)1 

OECOOE110*12,IA(2))  OATAIN(JJ) 

GOTO  1240 

1190  CALL  oJU5T(IAI2)1 

OECoOEC10*?.3*IA(7)  ) 

1740  IF  (KOUNT  *EO.  KOllNTl)  GOTO  (1250* 
KOUNT1 “FOUNT 
WPlfE ( lOUTl *25) 

GOTO  1254 

1060  WRITE  M0UT1.14) 

IF  (IOUTV.EO.  0)  GOTO  ll-*0 
WRITE  (IOUT2.I5) 

IOUfT=IOUT2 
I5N.2 
GOTO  1140 
1130  INOTC-lNniCC 

1  FORmATI/.w  THE  DEFAULT  INPUT  U7,TA 


rENEATH  START  OF  NAMt«) 


009690 

009700 

909710 

009720 

969730 

969740 

609750 

909760 


A.8  Subroutine  SSWTCH 


l 


5 


10 


55 


SMRaOUTIME  SSWTCU<!«  i.mj  »M2>  .METi)RNS(m) 

C0«>'OM/«;FNSE/I|M»T0nr|  .  INOIC 

if  ii  .fa.  o)  rv.TA  inn 

89Iteiiouti.ii  “i.n’.i 

rot  a  no 

|f)0  WRItE1IOUT1.2>  "U.M2 
110  RFAnlUu.TI  JJ 
.1=? 

T  F  1  |J  .FA.  1HY)  J=1 
TMi)ic=eoF(iiN) 

IF  rINOlC)  1000. mm 
lnoo  RETURN  M 
10 io  OFTiiRM 

1  FORMAT  1 1 X . AI0»A5. i2.*?-*l 

2  FaR..AT11x.A10«AS.»?-«I 

3  FOR"AT (AT  I 

Full 


0u9770 
0 J97H0 
009790 
0u9800 
Ou9810 
009820 
009830 
009840 
0u9850 
0)9860 
0O9870 
009880 
009890 
009900 
009910 
009920 
009930 


A.9  Subroutine  RJUST 


l 


5 


10 


15 


SUBROUTINE  RJUST  (I) 

OIMfNSIOM  LC(9) 

OATS  <LC=775555555555S55555558, 777755555558555555558, 
♦77777755F5S555585F553.777 1777 15555555555558. 
♦777777777755555855559.777777717777555555558. 
♦777777777777775555559,777777717777777755558, 

♦  77  7  -<77777  777777  7  77559) 

LR=I 

IRItS-0 
00  100 '1=1.9 
I9ItS=IRiTS*6 
lr=>«AaK1TRTTS).0R.UB 
IF  (LR.Fn.LClin  r,0TO  110 
100  CONTINUE 
OOTo  120 

1 10  L=SHIFT(|  .IBITSl 
l20  RETURN 
END 


009940 

009950 

009960 

009970 

009980 

009990 

610000 

010010 

010020 

010030 

010040 

016050 

010060 

010070 

010080 

010090 

oioioo 

010110 
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Fortran  Listings  for  TIKIRK  Program,  Options  No.  1  and  No.  2  Only 


B.1  Main  Program  TIKIRK 


1 


5 


10 


15 


20 


25 


30 


35 


40 


45 


50 


55 


60 


65 


70 


ppogRAM  TIKIRK (TAn£A=R0/80*TAPE5=B0/Bf).TAPt3.TAPE7»TAPE8t 
♦  T  APf6=B0 /ft  0  «OUTuUt  =  4'') 

C  THIS  PROGRAM  CAN  BEST  8f  DESCRIBED  A5  THE  I/O  INTERFACE  FOR  FUNCTION 
C  SUBROUTINE  IkIRK  WHICH  COMOIjTtS  THE  KlRKHnFF  INTENSITY  FUNCTION  AS 
C  DESCRIBED  IN  AFCWL-72-0565. 

C  The  tNPUT  falls  INTO  three  classes* 

C  11  INPUT  having  TO  llo  JTTH  PROPERTIES  OF  the  WINDOW  MATERIAL  ANO 
C  THE  LASfR  BEAM. NAMELY*  (QUANTITIES  CoS  UNLESS  OTHERWISE  INDICATED) 

C  sin  =>  VALUE  of  sigma  IN  Gaussian  BEAM 

C  I.AMR0A  -*  WAVELENGTH  or  the  L16H1  BfAM  in  microns 

C  O'  =>  total  beam  POWER 

Co  =>  window  Radius 

C  beta  =>  BULK  ABSORPTION  COEFFICIENT 
C  K  ->  THERMAL  CONDUCTIVITY 

c  mX  =>  index  of  Refraction 

C  slR  =»  S  SUB-I.SUp-QHD 

C  SIT  ->  S  SUB-1 .SIIp-THFTA 

C  S2R  r*>  S  SIIB-2iSUD-RHO 

C  SZT  =>  S  SUB-2.SUP-THETA 

c  t  =»  time  at  which  ikirk  is  to  be  evaluated 
c  2)  input  having  to  no  with  T«t  evaluation  domain  of  the  iuncTIOn 
C  TK!RK.NaMELY<* 

C  X0  =>  GAUSSIAN  FOCAL  DISTANCE  (METEpSl 

C  XI  =>  MINIMUM  y-VALUE  FOR  FUNCTION  EVALUATION  (METtRS) 

C  X2  =>  MAXIMUM  y-VALUE  FOR  FUNCTION  EVALUATION  (METERSi 

C  RMOol  =  •>  MINIMUM  RAOIIIS  VALUE  FOR  FUNCTION  EVALUATION 

C  RHOdH  =>  MAXIMUM  RADIUS  VALUt  FOR  FUNCTION  EVALUATION 

c  MO  =■>  NUMBER  or  FVALUATION  POINTS  IN  THE  RADIAL  DIRECTION 

C  N°  =>  NUMBER  Or  rvALHAT ION  POINTS  IN  THE  AXIAL  (X)  DIpECTION 

C  TIM  =■>  ARRAY  (Ho  TO  Id)  OF  TIME  VALUES  FOR  FUNCTION  EVALUATION 
C  (TIME  VALUES  SHOUl  0  RE  IN  INCREASING  SEQUENCE) 

c  IIMIM  =>  MINIMUM  ll-VALUE  for  FUNCTION  EVALUATION  (SEE  MODE) 

C  UMAX  =■>  MAXIMUM  U— VALUE  FOR  FUNCTION  EVALUATION 

C  VM[m  =>  MINIMUM  V-VALUE  FOP  FUNCTION  EVALUATION 

C  VMA«  =■>  MAXIMUM  V-VALUE  for  function  EVALUATION 

C  31  TNoUT  HAVING  TO  nO  WITH  PROGRAM  CONTROL* NAMELY* 

C  EOS’  =>  ERROR  VA|  UF  FOR  INTFRPOt.AT  I  ON  OF  THE  TEMPERATURF 
C  FUNCTIO'I  OUTOUTTEO  BY  TFMP5  and  INTERPOLATED  BI  IBM  SCI.  SUB.  ALI. 
c  MTNT  =>  NUMBER  Or  tfmpfrATURE  FUNCTION  POINTS  TO  BE  UsEn  IN 
C  THE  IMTFRDOLATION  (DEfAulT=6) 

c  idRmT  =>  USED  TO  CONTROL  OEBtfG  OUTPUT  (1  CAUSES  DEBUG  OUTPUT) 

C  (?  CAUSES  WINDOW  TEMPERATURE  DISTRIBUTION  SUITArLE  FOR 

C  niSPLAY  TO  PE  OUTPUT) 

C  NC-AIIS  =>  NUMBER  OF  FUNCTION  VALUFS  FOp  GAUSSIAN  INTEGRATION 

c  M(  Otr  =>  IF  MOOF  =  ]  THEN  THt  INTENSITY  FUNCTION  IS  EVALUATED  AT 

c  f(3III-spaCED  X  AND  RHOD-POTMF  VALUES!  IE  MoDE«2  IT  IS  EVALUATED  AT 
C  fQiiI-SPaCED  ||  ANO  V  VALUFS. 

C  IP  =v  IF  1  I ISf  TKIRK.  IF  i  USE  IKTRKP 

C  (NOTE  That  IkIRkP  SHOULD  ONLY  BE  USED  ON  THE  AXES 

C  FOR  CONSTANT  TEMPERATURE  WINOOW) 

C  ALL  The  above  MENTI'NfD  DATA  IS  OBTAINED  BY  TWO  CALLS  TO  THE 
C  INTERACTIVE  INPUT  SUBROUTINE  GETOATA  DESCpIBEO  IN  PML  TM-Ifc.  IN  THE 
C  first  Call  ALL  DATA  In  THE  first  CATEGORY  is  OBTAINED.  IN  THF 
c  second  call  all  data  in  the  second  and  third  categories  are 
C  obtained.  AM  exception  TO  THIS  IS  I?  (CONTROLS  USE  OF 
C  TKIRK  AMD  IktOKP)  which  is  nBTAINtD  ON  THF  FIRST  CALL  TO  GETnATA. 

C  FOR  A  I  I  ST  INF,  OF  OFF  ftUt  T  INPUT  DATA  IT  IS  RECOMMENDED  THAT 


oooior; 

ouono 

006120! 

000130 

000140 

000150 

000160 

000170 

000180 

060190 

000200 

000210: 

006220 

000230 

000240 

000250; 

600260 

000270 

006280 

060290 

000300 

060310 

000320 

000330 

000340 

000350 

000360 

000370 

6003B0 

000390 

000400 

600410 

000420 

666430 

000440 

000450 

000460 

000470 

060480 

000490 

000500 

000510 

000520 

060530 

000540 

000550 

060560 

000570 

000580 

000590 

060600 

060610 

060620 

000630 

060640 

606650 

000660 


C  TIKIRK  uE  RUN  INTERACTIVELY  under  INTERCOM  AFTER  GIVING  THE  COMMAND  000670 
C  CONNcCT (TAPF4.TAPE5) •  060680 
C  THF  MAIM  OUTPUT  OF  TIkIRm  IS  A  SEUUEMCE  OF  UNFORMATTED  RECORpS  060690 

c  of  intensity  values  with  corresponding  domain  values,  each  rfcord  600700 
C  CONSISTS  of  the  following  SEQUENCE  of  values*  060710 
C  RECORD  mO.«  NIJMBFR ( MP (  OF  INTENSITY  VALUES  IN  THE  AXIAL  direction.  060720 
c  axial  coordinate  x  or  u,  time "value  it>  in  seconds,  number  <np>  660730 

C  O'  INTENSITY  VALUES  In  the  DAUIAL  DIRECTION.  MINIMUM  radial  00O74O 

c  coordinate  rhopi  or  vm in*  maximum  radial  coordinate  rhop2  bi;  600750 

C  V M A X .  Mp  INTFNSITY  VA|  UFS.  60676P 
C  FOR  FJCM  VALHF  of  T.  nP  RECORDS  are  OUTPUTTED  CORRESPONDING  to  THE  000770 
C  NP  X  EVALUATION  points.  THE  RECORU  NUMBER  RUNS  FROM  1  TO  NR  FOR  666780 
C  EACH  TI>-E  VALUF.  ’  666790 
C  THFRE  APE  six  files  ASSOCIATED  WIIH  this  PROGRAM  (NOT  INCLUOjNG . FILE  000800 
C  MOUTPUT'-') .  ThF  FILES  ARF  REFERRED  TO  IN  ThE  PROGRAM  AND  ASSOCIATED  OOOBIO 
C  SUBROUTINES  AS  IT3.IT4.IT5.JT6. IT/. ITS.  THE  FILE  VALUES  ARE  IN  TURN  060820 


c  assigned  tO  the  usual  Fortran  wtapen®  by  a  data  statement  ANn  program  666830 


iti7 


oo  oooooooor. 


c  association  tt  is  necessary  to  change  either  or  both  the  data  and 

C  PROGRAM  STATEMENTS. 

c  THFSf  EiLFS  SERVE  The  FOLLOWING  PURPOSES* 
c  ITT  Ell  F  'outputted  °Y  PROGRAM  TFMP5 
c  ,T4  =>  siMrERACTIVFra  INPUT  HLF  (SEE  GETDATA) 

C  ITS  =  ,  kiIwtEPACTIVFR  OUTPUT  Ml.E  (SEE  OfTOATA) 

C  ITS  =  >  LISTING  OF  A,  L  INPUT  .PARAMETERS  ANU  DtbUG  OUTPUT 

c  ITT  =  ■>  UNFORMATTED  iNtfmstTT  VALUES.  ALSO  MAT  BE  USED  TO  INSERT 

C  ITS  =s  UNFOPMATTEO  TEMPERATURE  DISTRIBUTION  VALUES 
C  SUITABLE  For  DISPLAY  PURPOSES 

r  PnEASSiGNEO  DATA  TM  CATtGOolES  2  AND  3 

C  IN  ADDITION  TO  THE  AHoVF  F ACTS.  THE  USER  SHOULU  BE  AWARE  OP  TWO 
C  PROGRAM  HCONST ANTSAl,  THE  FIRST  UNDER  THE  HAME  NT  IS  ThE  NUM- 

C  PER  OF  TIME  VALUES  PERMITTED.  At  PRESENT  THIS  IS  SET  TO  *0.  (THE 

C  nlMFNsnN  OF  THE  TIME  Appav  TIM).  ALSO  NOTE  THAT  ALL  THE  I  IMF  _ 

C  OEFMIIT  VALUES  ARE  7FoO  EXCEPT  Tnt  FIRST  AND  THAT  THE  PROGRAM  STOPS 
C  AS  SOON  AS  A  SUCCEEDING  TIME  VALUE  IS  LESS  than  THE  PRECEDING 

c  tHE  ~  SECOND  *'400NST  ANT'A  HAS  to  uO  with  I  HE  slit  uV  THE 
c  py  tfmpp.  Thf  SUBROUTINE  PTAPE3  READS  THE  TEMPS  OUTPUT  UNDtR  THE 
C  ASSUMPTION  TmAT  all  'SrADiAL®  ARRAYS  ARE  OF  DIMENSION  B2  AND  fr'MKIALH 
c  ARRAYS  aRF  of  DIMENSION  PP.sEt  COMMENTS  WITHIN  SUBROUTINE  HTaPE3. 

C  thF^ IMTfNSUTY  f unc T I ON  i  k  t  pk  is  DEFINED  Explicitly  as  a  function  of 
c  thf  nonrImensional  (APIAPI  es  u  anu  v  and  implicitly  as  a  eunfIIOn 
c  de'ndn-rImensIonal  tine  tau  through  the  time  dependant  functions 
c  PH, -theta  AMD  phi-rho  AS  defined  IN  the  ABOVE  h™*ce.  thess 

r  UAO  I  ARI  CS  AWF  KA33ti]  ,  wi  1. 1  -  •  ^ 

c  required  fop  evaluation  of  ik irk  are  passfd  through  block  common 
C  .PHIOLK.  these  PARAmEtEps  are* 
c  OSIP  =>  P»S1R  (SEF  ikirk  comments) 

c  CSPR  =  >  I"»S2P  " 

c  CS)P  =>  S*S1T  " 

C  CS^T  s>  ** 

C  XS  =>  STARTING  ARGUMENT  FOR  FUmCTIOmS  E1«F2  (SEE  FUNCTION 

C  PHI  COMMENTS) 

c  ox  =>  INTERVAL  BETWEEN  EUUI-SPaCED  ARGUMENTS  OF  F1.F2. 

c  MF  =>  number  OF  VAI  UFS  of  El.Ep 

c  UNNT  =>  MINT  (SFp  INPUT  DAI  A) 

C  FOP  =>  FPSl  " 

C  F I  (?,)»)=>  HOL0S  VALUES  of  F  I  FOUM  TEMPS 

r  rpi^.n  i ->  uai  OS  VALUES  OF  Fid  FPOM  TEMPS 

c  HOt  o  =>  STORES  CHI-THETA  (PHI-pHo  AND  PHI-THETA  ARE  EVALUATED 

r  SIMULTANEOUSLY) 

C  t  =>  1 /SORT (?) /SIG  <  =ALPHA  IN  THE  ABOVE  REFERENCE) 

r  xF  =>  WAVE  NUMBER 

C  TLAST  =  »  STORES  TImE  value  HEAU  FpOM  TFMP5  RECORD 

c  {ef^T  SRDOP  INDICATOR  EUR  PIAPE3  (INDICATES  OUT  OK  RANGE 

c  time  OR  OUT  OF  SEQUENCE  TIME) 

C  \o  =  >  OF  HUG  OUTPUT  msw  ITCH'S) 

C  isi  =>  SWITCH- FOD  GAUSSIAN  INTEGRATION.  WHEN  I5W*1  THEN  IHE 

X.VaUKS  fUW  AdlfiSlAM  imFG.HLlr.JM  L-E  FOU..O 

_  , lumber  of  POINTS  USFO  IN  THE  'GAUSSIAN  INTEGRATION 

N’  "NmF  THAT  IS  MGAHSSSIS  CHANGED  THEN  THE  GAUSSIAN  INTEGRATION 
sxrth-  tlwC  *?♦  ,  ‘  *  ruAAVVO.) 

I™  =>  number  OF^TFMBEPAT URf  samples  in  AXIAL  DIRECTION 
mused  for  outputting  display  compatible 

tEMPERATUpE  DATA)  „  .  _ 

C3  =>  FONSTANT  to  DIMENSIONAL I7E  TEMPERATURE  DATA 

ri  =>  rONSTANrLHSFO  To  UIMENSIONALItE  TIME  EOP 

K  « f  K  ?  PK  *LAMRaA  «*|X  *KE 
QPAl_  IKfSKP 

LAG r CAL  S 

OTMPNSIOM  RliFOOfll  t„  tT,  ,tq 

-X.NE iTt.erp.ei  «... . 

.FP(,00)*HOLD.A,KE.TLAST.TNEXT.IERR.IP.MP1.1SW,NGAUSS, 

♦PAO.NOI .fT.CI 

INTEGER  OATAIN(inn.-«).DATAlNI(100i3) 

roM),0N/BL0CK2/X).xl.x?.PH0Pl.KH0P2.MP.NP,TlMU0).EPSI 

C  TEMPERATUpE  nISPLAT 


000850 
000860 
060870 
000880 
000890 
OU0900 
600910 
000920 
0U0930 i 
000940 i 
606950 j 
000960 ■ 
000970 
000980 
606990 
601000 
001010 
001020 
a<il43« 
661040 
661050 
001060 
661070 
001080 
661090 
0O1100 i 

3>Vimr 

661120 
661130 
601140 
061150 
601160 
001170 
001180 
0011 90 
661200 
001210 
601220 
001230 

06  1240 
001250 
001260 
661270 
661280 
661290 
061300 
001310 
06 1320 
0ol330 
061340  . 
661350 
001360 
061370 
001380 
061390  i 
061400 

UOi»Ul 

661402 

601403 

001404 

661405 

001406 

001407 

0J14I0 

061420 ' 

001430 

001440 

061450 

001460  1 

001470 

001480 

001490 

061500 

001508  j 


150 


155 


160 


165 


170 


175 


16ft 


185 


190 


195 


200 


205 


210 


215 


220 


225 


♦,wI.lT,IP9NT,NGANS,MOnr.t|MlN.UMAX.VMIN.VMAX»DUM{20>  .MSMP.NSKIP 
COM'lON/BLOCKl/ 

♦  T1>I2.I3.I4.TS.T6.17.m,n.MI.N1  .  ICNT  .  ID.  IO.NO  »NMX.  TkUN. 
♦TCAwD.  loot  hit.  IPnCh.  >TA  PI  *1  TApm.RhOI  .RH012.ZEDI  .ZE012.DTAHU. 

♦  TAU-.X.TAIIOFF.SIG  .OP.in.  tPS.Gl  (A)  .HI  <41  . MATER. NX »BEta. 
♦K.LaMROA.S1R.S1T.s2p.S?T, 

♦nFN.Co.P.EXPEH.ww.R) .71  ,R2. 1PLOT .PROBnD.T  ICU.XLEN. YLEN. ScaLE X. 
*SCAi  EY1.5CALEY2.xtIT|F(5>»YTT  HEl  (5)  ,YTITLt2<5> ,NAMt 
EOIIT VALENCE  (11. DAT ATM)  .  (X0.DATATN1) 

DATA  (DATA!N(I.l).I=l« 92 1/7*2.80. 20»3»1»0»1. 2.11. 100. 4,6. b»3« 
♦4.3..1 ..-.5546,1 . 1 049,  ,0035.5  .5,. ,1242.2*0, ..001 .4*0.. 0. <  3». 015. 
♦IhkcL. 1 .47 .4.8E-4..0A53.10.6.-.  3aE-5.  .05E-S. . l£-S.-. lt-5. 1.96. 

♦  . 69 i.l. 248, 1H1 • >4,7,81.11.1.1 .4H7204,  ,5.20..9..30,..l..l. 

♦  1 ahtIhE (SFCON. 3M04) ,  T»1H  .1UHIEMP-DEGC ' . 10H  ABOVE  AMR. 

♦  3*)u  .1UMMFAN  TEMn  ,|cH  AbOVE  AM9.3*1H  .7H8ARRETT. 

♦  lflRr-AOlA!  nlS.  10HTAMCE.9HO-.4H(CM)  .  1R  .1H  .  10HAXIAL  D1ST. 

♦  nHANCE._’-(CM.iw) ,m  ,ih  / 

0474  (Oat AIN ( 1 .»)  ,  t  -1 .92)  /2HI 1 .2HI2.2MI  3.2H14.2HI5. 

♦  2HI4.2HT7. 1HM*  1HN.2RMI  ,?HN1.4HICmT,2HTU.2h1(J.2HM0.3HNMX, 

♦  4Hlol)N.5MtCAR0.6HTP9  tNT.SHIPNCH.5HITAD3.5hn  AP4.4HRH01  . 

♦  5HPH012.4HZE01.t'H7EOl?.rHUTAUU.5HTAUMX.6HTAU0FF.3hSIr.. 

♦  2HQ'>,?Hti4,3HEPS.5HGl  ( 1 1  .SHG1  (2)  .SHGl  n>  ,5hG1  (4)  .5HH1  ( 1) . 

♦  SHH*  (2)  .bHHI  (3)  .ShHI  (4)  .SHMATtRI  4L.8HDEF .  IND.  .4HBETA, 

♦  9HTMEw.CnNfl.6HL  AMnOA.THSIR*  3H5  IT , 3HS2D  .3H52I , 

♦  7HQFNSI  TV.9HSPtC.HEAT .6HRA01US.5HEXPER. 

♦  TMPuR  .  3HH 1  t  ,  TH7 1  #  .  THH2#  .  -HPl  T?1  Y  ,2N.  6HPH0RN0.4HT  1CU , 

♦  4HX|  EN.  AhYLEN.7hX-SCALE.8HY  1-SCAtE.  8HY2-SCALt.6HXT  l  TLt« 
*1H2.1H3.1H4,1H5,7hYTTTLF1*1H9.1HT.1H4, 1H5.7HYTITLE2.1H2, 

♦IH3.1H4, lHS.fiHOwfDATOR. 

♦  3hxt1.3HxT?.3HXt3.3hxT4,3HXTS.3HyT1 .3HYT2.3HYT3.3HYT4. 

♦3HYt5/ 

OAT  4  (OATAIN(I.T).  1  =  1.  921/22*0. 19*1, -1,11*1. -1,1. 4*0. 

♦-1 .6*1 ,2A*-1/ 

OAT  A  (DATA  INI U.1).T  =  I .481/1500. .  1 000. *2000., 0. .2.  .100*1 04*10. * 

♦  4<-i .. .011,6,1, 94 ,2,— 40. .40, .0. • 10. , 

♦lAHxlPKHnFF  1  ,  li'HMTCMSt  TY  F  .9HUNCT  ION  ,  I  «  1H  ,1H  .10H1IML  IN  SE. 
♦SHCnNOSt *H  ,1H  ,1H  .10HNON-DTMEN4.10HTONAL  RADI.’loHAL  OKTANC. 
♦1HE«V.1H  .lOHNON-olMCNS.lftHInNAL  AXIA.lvHL  DISTANCE. ?H.U. im  ,5.5/ 
DATA  <0ATAINl(l.2l,l  =  l  ,4rF/2hX0.?HX1 ,9HX2.5HRH0P1  .5HPHOP9.2HMP, 

♦  9MND.2HT1  ,2HT2.?HT3,9HT4.2HT5.2HT6,2HT7,2HTd.2HT9»3HTlO* 

♦  AHFdSI  ,4mMI NT , SHI dRNT  • 5HNGAUS . 4HM0DE . 4HUMI N, 4HUMAX . 

♦  4HVmIM.AHVMAX,3nSt1 .THST2*3HS  1 3 . 3HST4 , 3HST5 . 3HPT 1 .3HPI2. 

♦  Thpt3.3hpT4,3HPT5.3hxt1 . 3hxT2*3HxT3,3hXT4, 3HXT5. 3HYT 1  * 
♦3hyt2,3HvT3.3HYT4,3myTS.5HMSk1P.5HMSKtP/ 

DATA  (DATAIN1  (I.3i,t  =  1.48)/5»  .2*0. 1 1*1  .4*0. 4*1 ,20*-l  *2»(i/ 

DAT  1  ITT. I T4. ITS. TT6. I T7. 116/3.4.5.6.7.8/ 

IM0tC=0 
S=  •  c  • 

ISHrl 

NTs  1  0 

CALl  c.EtoATAIDATAtN. 92.4. 5 .6. 3. 100.300 .INDIC) 

CALI  GETOATAIOATATN' ,46.4.5»6.7.100.3c0«INDIC) 

IF  (MOOF  .NE.  1)  r.OTfl  no 
OATaINI (T7.1) =1 AHnAOT  AL  D1S 
OAT  A  INI  nS.ml1HTAHCF.PH0- 
0*T  AlNl  (T9. 1 1  =  1  ahpRI'AF  (CM) 

OATaINI  (4(),1)  =  1oh 
OATaINI  (42, 1)=1(1HAXTAL  0151 
OATaINI (43. 11  =  1, IHaNCF.X  (CM 
OATaINI  (A4.miH) 

150  WRItE  <TT7)  OATAIm 
NPItE  (TT7)  OATAInI 
IF  (MODE  .EO.  1)  5s. T. 

PFw rNO  TT3 

REAo(IT31 

TLAST=TN5XT=0. 

KF=a.283iRE4/LAMRoA 

£Pd=EPSI 

tp=tprnt 

NGAiiSS=NGAUS 

xs=c. 

DX=*./M 

MNNT*MlNT 

MoItM.I 

NF=|-.P1 

IF  (S)  GnTO  120 
XMAX*VMAX 
XMIm=VMT«I 
GOTO  140 


001510 
001520 
6*1530 
UU1540 
001550 
0*1560 
0U1570 
0O15R0 
001590 
001600 
031610 
001620 
flu 1630 
03 1640 
001650 
0*1660 
0  31670 
0*16B0 
031690 
03  1700 
031710 
001720 

OF  1730 
031740 
0.1750 
<13  1760 
Oo 1770 
0*1780 
O'.  1740 
OvlROO 
O'-iRio 
0*1820 
6.1830 
0  l|H40 
6*1850 
6*1860 
0*1870 
0*1680 
6)1890 
U'  1400 
6  <1410 
0*1920 
6*1930 
0*1940 
0*|950 
0  'I960 
0.'197(| 

6"14«0 
6*1940 
0-2000 
6*2010 
6*2020 
6*2030 
0  >2040 
6  -2050 
6*2060 
032065 
6*2070 
0-2OHO 
6*2090 
6*2120 
6)2130 
662140 
0*2150 
6*2160 
6*2170 
6*2180 
6*2190 
032200 
6>32210 
6*2220 
032230 
002240 
6*2250 
0*2260 
6*2270 
6*2280 
6*2290 
6*2300 
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002310 

002320 

002330 

0i/2340. 

002350 

002360 

0u2370 

002330 

002390 

0o2400 

002410 

002420 

0»2430 

002440 

002450 

002460  . 

002470 

002480 

002490  . 

002500 

0&2510 

002520 

0O2530 

0  02540 

002550 

002560 

002570 

002580 

002590 

Ou2600 
002610 
002620 
002630 
002640 
002650 
002655 
502660 
002670 
002680 
002690 
002700 
002710 
002720 
002730 
002740 
002750 
002760 
002770 
002774 
0 J2776 
002780 
002790 
002800 
002810 
002820 
002830 
002840 


120  XMIm*RHO°1 
XWAx»RHO°? 

140  CONTINUE 
A=.5/SIG 

C=Bi.i«(NX»»2*1>/?./NX 

C=C»R»BFTA/3.14154/X 

CS19*C«S1R 

CS2o*C*52R 

CSIt*C*S!T 

C52t*C»52T 

R5G=R*R 

xo=xo»iao. 

xi=xi»ian. 

X’=x2»laa. 

C1=k/RSD/DEN/CP 

DEL  Xs  (X?-.X1)/(AMAxO(1  .NP-i )  1 

0ELrH0=»qH0P2-RH0o1) /<Am»X0<1 *MP-1>  > 

DELW*<VMAX-VMlN)  /(ANAXOd'NP-l)  ) 

OELn=<UMSX-UMIN)/<AMAXO(l*NP-n  ) 

RAO-R 

N“1=N*1 

C3=r/R 

XOId./X* 

NPEr«a 

IT=i 

tp=t*tim(  i  i 

IE  (T  .LT.  0.)  GOTO  2000 
IE ( iP.ED.2)  WRITE! 1T81  OATAIN 
1000  T=T»C1 

WRlTE/IT5«2)  T 

IE  (T  .GT.  TAUMX)  GOTO  2000 

X1T=X1 

X1I=1./X1T 

U=IJmIN 

OO  i 00  I  =  1 1 NP 

CX=(X0»X1I)*»2 

IE  (SI  II-KE»RSQ»<X0T-X1I> 

RHOd»RHORI 
V  =  Vw IN 

00  <10  J=1.MP 
IE  (Si  V=KE»R*Xl I»RNOP 
GOTn  (220*200)  12 
2R0  9I)F(J)=CX»IKIRK0(II*V.T) 

GOTO  210 

200  BUF(J)=CXMKIRK(U.V.T) 

210  RHOo*RHOP*DELRHn 
V=V*OELV 
110  CONTINUE 
P=U 

IE (s)  P=X1T 

WRITE  < I T7 *  I ,N°.o*tr.mo,XMIN»XMAX. 
CALL  RRTIBUF.MOOE.I.TT.MP.NP.MSKIP, 


002850 

002860 

002870 

002880 

002890 

002900 

002910 

002920 

602930 

002940 

602950 

002960 


B.2  Function  IKIRK 


QF4|  FUNCTION  IkIoKOI.V.TI 

C  FIJMCTTt)''  IKTRK  IS  THF  KTOKHDFF  INIENSlTY  FUNCTION  DESCRIRtU  IN 
C  -BENITO*. 8.  AmD  GIANTNo.d.  aoPTICsL  PfRFORmANCE  EVALUAIION  OF 
c  infrared  transmitting  windows*  afcrl-7?-os65.  assuming  a  baussIan 
C  SHAPED  i  iNPOu  AR I AZEO  SoURCF.  THt  INTENSITY  FUNCTION  CAN  BE  WRITTEN* 

C  IKIR*  (*'•)/)  =2  (A!?/  (  1-cXd  (-AI2)  )  >  !  2»  (  ll  (0,  ]  >DX)  <FW*FX)  )  !2« 

C  1  r  (n,  1  .0X1  ( F',r*F  Y  1  I  !2 

c  i-'HFRFY 

c  Fi, I  (  y  ,11)  =FXP<-  <  A»X)  !?>»FXP(-I«U«X!  2/2) 

C  Fx  (r*V)=«»J0  (X»V)«EX'’(I»K»PHIK<X>  )-FZ  (X,V) 

C  FV(v.V)=Y»,|0<  X*U)»EXd(I*K»PHT  I  (X))*FZ(X,V> 

C  F7 ( v ,V) =  llIX*'/)a(c-XDfTaK<|RHIPtXIl-FXP(I*t<*PHIT(X)))/(V) 

C  A=1 /SORTfP) /S1G»»p 

C  KcwaVE  MO.  (OMEGA /C) 

C  NOT  ST rON* 
c  !  =■>  EXPONENTIATION 

c  I  =a  ""Imaginary 

C  I (0,1. OX) (. I  MEANS  INTEGRATION  OF  THF  FUNCTION  WITHIN  ()  W.R.T.X 

C  OVEA  THt  INTERVAL  (Tl.l). 

C  10  ANO  ll  APF  BESSEL  FUNCTIONS  of  THF  FIRST  KIND.ZEROlH  ANU  FIRST 
C  ORDER  RfSpECTTVEL Y. 

c  dmIR(X)  AMO  OHTT(X)  A°E  THE  FUNCTIONS  PHI-SUPEKSCRIPT-RHO  ANn  PHI- 
C  SUpERSCaIpT-tHETA  RFSPECTIWFLY  In  THF  above  REFERENCE. 

c  these  functions  are  gtvfn  ry» 

C  OHTR(X) =C»Sio»F1 (X)»4»C»S2R«F2(X> 

C  OMIT ( X) „C*S1T«F1 (X) *4»C*S2T»F2IX1 
c  I.IHFRF* 

C  C=Ri3»ooaBFTA/KT 

C  R=wtNDOw  RADIUS  (rM) 

C  0{i=.-EAN  INCIUENT  oOmFR  DENSITY  (WATTS/CMI2) 

c  HFT4=RULK  ABSORPTION  coefficient  (I/Cm) 

c  KT=THERMAL  conductivity  IWATTS/(CM  OEgC) 

C  SIR,S2R,SIT«S2T  AoE  MATERIAL  CONSTANTS  DEFINED  IN  THE  ABOVE  REF. 

C  f  I  ,f2  arf  THE  FUNCTIONS  DEL.TRAR-oRIME  ( X )  ANU 
C  (l/x!2H(0.X.DS)  (nEl.TRAP-PRIMt(S) ) 

C  rjvcN  IN  the  ABOVf  ofFEPENCE  and  WHICH  are  provided  at  SfLECTED 
C  ARGUMENTS  BY  program  WTFMPSis. 

C0M»0N/PHTBLK/CS1o,CS2R,CSIT.CS2T,XS.0Z.NF «MINT.EPS,Fil2nO>, 

♦  F2 (r00) .HOL0, Af K  .TLAST.TNEXT , I  ERR . IP . MP1 • 1SW * N . 

♦RAO.NP1 ,C1.C1 

COMmON/TFIlES/ITT. Ita. IT5* iT6*IT7tITB 
‘  COMPLEX  ol.EXPR.ExPT.FX,FY*F7>FW 
RFAl  JO,  11 
RFAl  K' 

OTmfNSION  XA(100).Yp(100)'YI(100|,ZR(!00),ZI(IOO) 

A2=a*A 

IF  ,A2  ,C,T.  220.)  I0P0.10J0 
l()2n  CONsT=2.*A2»A2 
GOTO  104n 

ln30  CONsT=2.«(A2/(1.-pXp(-A2)  >  >•*<! 

1040  un2=U/2Fn 

C  IF  ISW  =  ’  THF-i  THE  ARRoY  of  POINTS  FOP  GAUSSIAN  INTEGRA  IION 
C  m  ST  RE  FOUND 

GOTO  (1050,1060)  tSm 
nso  ISW=2 

CALI.  0QG2AA (0E0, 1F0.XA) 

IF  ,ID  .c(5.  1)  WRlTFlITfi.n  (XA(I)  ,I  =  1,N) 

1060  CSLl  RTSPF3IT) 

IF  (IEHR  .NE.  0)  GOTO  2000 

00  100  Isl.N 

X=XA(I) 

X?=X*X 

XV=X»V 

Fw=cxp(-s?»X2)»CExP(CMPLX lOEO,-Un2»X2) ) 

FXDr=CEXo(CMPLX (OFO.nePHI IX) ) ) 

EXPT=CEXD(CMPLX (OfO,k»HOLD> ) 

IF  rV  .Fn.  0.)  FZ-(fxpp-E*PT)*X/2. 

IF  (V  .NF.  0.)  FZst^EXPR-EXPT)  #JI  (XV)  /V 
Ol  =  X*  I0(XV) 

FX=ol»EXPP-FZ 

FY=ol»EXPT*FZ 

01=fW»FX 

YR(t)=REAL(OI) 


0J2970 

ii  1,2990 

003000 

003010 

0 ,3020 

6o3030 

0'.1 3040 

0O3050 

O'.JOhO 

6v3670 

OJJURO 

O',3090 

0J3100 

0O3110 

Oj3120 

0u3130 

663140 

003 150 

0u3160 

0J3I70 

6‘J  3180 

003190 

663200 

663210 

003220 

6o3230 

003240 

Ov3250 

663260 

6u3270 

003230 

0u3290 

01)3300 

003310 

003320 

003330 

6 03340 

663350 

003360 

663370 

003380 

003390 

003400 

663410 

063420 

003430 

003440 

663450 

003460 

003470 

663480 

003490 

6U3500 

0U3510 

663520 

003530 

003540 

003550 

003560 

003570 

003580 

003590 

003600 

003610 

003620 

0U3630 

003640 

603650 

003660 

003670 

0u3680 

003690 

0O3700 

663710 
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603720 

003730 

003740 

003750 

003760 

663770 

603780 

603790 

093800 

003810 

003820 

0U3830 

603849 


Yj<T)=4IMAGI01> 

Ol=f w»Fy 
7p(t)=REAL<01> 

71  I t )  =ATMAfi(01 ) 
l"0  CONTINUE 
l  '  F09»'AT  (SflXtG12.5l> 

CSLl  OOG->4rt(OEO.  IE0.yP.yRI> 

C«Li  rmr,B4fl(0E6.lBO.Y?4YlI) 

CALI  OOGP4R  ((lEO.  irO  .7R.7RI ) 

CALI  OOR74R(0£0.1F0.7t.7in 

IYInK=COMST»(VRr»YRt‘VII»tn*2PI»ZRI»7II«21I) 

2000  RFTiiRM 
EMO 


B.3  Function  PHI 


003850 

003860 

003870 

663880 

003890 

663900 

6639)0 

063920 

663930 

603940 

663950 

0O3960 

603970 

003980 

663990 

604000 

004010 

004020 

664030 

604040 

004050 

004060 

004070 

664080 

664090 

604100 

604110 

004120 

664130 

664140 


FUNCTION  PHI(X)  ,  ,  , 

C  tF  SNT  =  F  •  them  PHIO(Y)  =c*519*7  1 IX)  ♦4»S2R»EEIX)  IS  FOUNO 
C  (F  S'4 T  =  I T  .  THEM  PHIT  ( Y)  sC*5l7#F  1 IX)  ♦C*S2T*F2(X)  IS  FOUND 
C  1.IHE9E  C=8!3*°0*BFTA/kxPoa  (SEE  CALLING  SU9R0UT INE) 
c  the  opOC.RaM  is  DESIGNrO  TO  RE  CALLED  IN  THE  ORDER  >F.>  >T>  FoW  A 

c  riven  value  of  x  in  obdfo  ta  eliminate  double  calls  to  the  imterpolati 

C  THETA90aYS  F1.F2  CONTAIN  THE  FUNCUON  VALUES  TO  1NJ|^LATtt>* 

C  ri«l  =  ySi.Fl(7=XS*DX)......Fl<NM.  ETC  AS  PROVIDED  BY  TEMPS* 

r  THF  mM  SCI  SUB*  ATSF  (P.  ?51)  QtTUPNS  MINT  FUNCTION  VALUES  AND 
C  flPGUMFNTS  TO  BE  USED  fO*  TMTEKROLATION  IN  ARRAYS  ARg* VAL  RESPECTIVELY. 

C  aHENAPr,UMENT"tCOL  IN  ATSE  IS  I  IF  THE  FUNCTION  IS  STORED  IN  A 

c  Ihf'irm^sci!'  sub.  aliip.741)  ooes  aItken-i. ^AcRCNGcDGNIsRA2L»HcoIgUTE 

C  ON  (AOC..VAL)  AN0  RETURNS  THE  RESULTING  VALUE  Y.  EPS  IS  AN  ABSOLUTE 
c  FRR09  F >Gi IRE  «N0  IER  iS  AM  ERROR  PFL»G«. 

C0NhON/pmTRLK/CSIP>CSRR>CSIT >C5HT*XS>nXfNF  .MINT.EPS >F1 1 2fl0)  . 

♦  F7(p00)  .HOLD.A.KE.TLAST.TNEXTtlERR.IP.MPl.lSW.N. 

♦PAD. NPl >C3>Cl 

C  HOLD  is  USED  TO  ST0PE  PHK.T.tX) 

DIMFNSION  ARGI2H) >VAL 1201 
IClfl  CALI  ATSF(X.XS.OX.Fl.NE,l*ARG»VALtMINT) 

CALI  ALT IX.ARG.VAi  .Yi .MINT »E°S. IER) 

CALl"  ATSr  (X»XS.nX.FP.NF.l*ARG«VALtMINT) 

CALI  ALT  I X.ARG.VAl  .v?, MINT* EPS. IER) 

PHI=CS1R»Y1 »AE0»Cs2°*Y? 

HOLri=rSlT»Yl»4E  l»cSPY#Y2 
2AOO  RETURN 
END 


B.4  Function  JQ 


RE4i  function  J=<«> 

C  10  IS  ThE  AfsSFL  FUNCTION  OF  THE  FIRST  KInDtZERQTH  ORDER.  SEF 
C  H*MO0OO<  OF  w4THEMATir*l  FUNCT !0N5-AmS  55.  FOR  VALUES  OF  THE  ARGUMENT 
C  (=5  EOUaTIOM  9.1.12  Is  USED.  OTHERWISE  9.4.3  IS  USED. 

DIMENSION  FACT  1 20 1 
DATA  MT/"  / 

IF (v.GT.5.)  GO  TO  I 
IF  (',‘T.NF.  0  i  GO  TO  2 


00415C 
004150 
004170 
0041  BO 
004190 
004200 
004210 
004220 
004230 
004240 
004250 
004260 
004270 
004280 
004290 
$04300 
$04310 
$04320 
$04330 
004340 
004350 
004360 
004370 
$04380 
004390 
004400 
004410 
$04420 
004430 
$04440 
004450 
004460 
$04470 
$04480 
004490 
$04500 
$04510 
004520 
$04530 


FACt(I1=i.O 
00  3  1=2.20 

F  ACT  ( I )  =FACT  ( I-  l  )  *F(_  HAT  ( 1*1 ) 

3  CONTINUE 

on  4  1=2.20 
fact(d  =  i.o/fact(t) 

4  CONTINUE 
2  CON’-IHUF 

4MSo=0.fl 
A MSN* 0.0 
4RG=:0.25*X»X 
4or,ii=ARG 
rm  =  i=i .19.2 
AM$-.is4NSM*ARGU»FArT  (  T  1 
1=1.1 

406>i*ARGM*ARG 
AMSr,=ANsD  +  ARGU*EAcT  1,1) 

A0fiU*ARGII*ARG 

5  CONTINUE 

■  io=’ .  o  ♦  i  ansp—ansn) 
return 
1  CONTINUE 
TOX=3.0/< 

F?  =  .  7978=456-.  OOOnOftT7»TOX-.0055?74»TnX**2-.  0000951 2*T6X*«3A 
l.001  3723T*TOX**4-.0nn72805*TOX**5T,O0f)14476*TOX**6 
THZrX-.  7  =  5398 16-.n4l  66397*1  OX-.Oo003954*TOX**2*.  00262573*  T0X**3- 
1 .  00-541 25*TOX**4-.  00029=3 J*ToX**5..00f)13558*TOX**6 
lA  =  c-2»COS(THZ)/80oT(X) 

RETURN 

EMIT 


B.5  Function  J1 


OFAl  FUN-TTON  Jl  (X) 

C  tl  IS  T=E  BESSEL  FUNCTION  OF  THE  FIRST  KImD. FIRST  ORDER.  SEE 
C  HAN0RO0*  OF  '.ATHERMATlCAl  EiiNCT IONS-AM5  55.  FOR  VALUES  OF  THE 
C  ARGUMENT  1=1-  equation  9.1.10  IS  USEn.  OTHERWISE  9.4.4  IS  USFU 
DIMENSION  FACT (=01 
DATA  MT/-V 
IFlx.GT.10.)  GO  To  1 
IF  1  *T.NE.O)  GO  TO  2 
MT=1 

FACT ( 1 ) =2 . 0 
DO  3  1=2.20 

F4Ct<I>=FACT(I-!*»F!_OAT(I*<I»1>  ) 

3  CONTINUE 

no  a  1=1.20 

EACtII»=i.0/FACT1T) 

4  CONTINUE 
2  CONTINUE 

ANin=0.0 

AMSh=5.0 


004540 

004550 

$04560 

004570 

004580 

$04590 

$04600 

$04610 

$04620 

$04630 

004640 

$04650 

004660 

$$4670 

$04680 

$04690 

$04700 

004710 

$04720 


esc^iit^sa^sjSS^SSs 


^^Wffl»mw^wiii«i> 


25 


30 


35 


i,gt,,s=u«s<>x  004730 

405=0. H5»*»X  004740 

aor,M=4Ro  004750 

05  5  1=1,19.?  604760 

AMSM=ANSMTAW0U«F4rT  (  T  t  004770 

1=1,1  004780 

496'  1=405'  |»AR6  004790 

AMSp=ANS°*AR6UoFA''T  I  I)  004800 

4PS'l=4RR.|OAR6  004810 

5  CONTINUE  004820 

H  =  ».R5S*(1  .0*  (AUSn-AMSN)  I  0  J4830 

rfT'IRM  004840 

I  CON-MW  004850 

Tnx=3.1/Y  0C4860 

Fl  =  <7-)7«Q456«.040'>0164*T04».oi659667,lT6A*,,2*.00017105<‘TOx',,>3  004870 

1-. 0*24951 1»T0X»44*.  '41 nfi5J»TOX«»5-.000200J3»TOX»*6'  0o4880 

TH1=X-2.t5619449+  .  1  44096 12*Tnx». 00 00565o»TUX»«2-. 0 063 /8  7q»T0X«»3  0  04890 

1  ».0'*0 74748 »TnX»«4*,r,n07ci824«T0X»o5-.  OoU2916b*TOX«*6  0v4900 

ll=sl»COS(TH] 1/SQpT  IX)  004910 

Rrf '  (Ri'j  0(14920 

r.jt)  0O4930 


B.6  Subroutine  RTAPE3 


1" 


15 


20 


25 


30 


15 


40 


SHRnOlITT'iR  RTAPFIfTt 

CDw.OM/PHlBLK/CS)  -5«r'S?B.CSlT<CS2T  , XS,OX«Nf  >'•'  I  NT  .EPS ,  F 1  IZoul  • 
,O|,01l  .  -JDI  [l.A.RF  ,T|_48T  , TNt XT  ,  I  £PR,  IP.MPl  *  I SW ,N, 

♦  .)A').4ul.'-3.Cl 

COM  /ON/ T FILES/ l T3, 1T4.TT5»1T6«IT7,IT8 

OTmcNSIp-.'  E|  M(84>  ,F?V(«>)  >t  1»  182)  »F2P  (82)  *RF  IN  (82)  ,2F1N(?2)  . 

♦  ,|F[  .P(8p,p?)  .UEIM-<a->.P?) 

0414  1891/n/ 

j'TJOCtrl'l  RF  IJSf  U  AS  A  OFMFRAL  PURPOSE  8'  IBK0U !  1NE  FOR  LTNEApLY 
(NTERPOi  ATIM6  EUUCTTOm  '/4I.IIFS  WFIWEEN  RECORDS#",  I.E.  ASSUME 
RECORD  11  INC)  I  IDES  TPE  INFORMATION  TN.F  ( 1  !TN>  «F  (21TN)  • 

‘.NO  QFCnRO  M*1  INCUIDFS  TM,  1 .1  (  1  !  I  N*  1 )  ,F  (?!  TN*  . . . .  • 

tHFN  T  f  Ttj(  =t|  sfM*  1  IS  6TWFM,  T  HF  QUANTITIES  F  ( 1 1 T)  ,F  12  i  T 1  *.,•••..  . 

4RF  RFTiRNED  WHERE* 

F  (  l  :  T )  =  E  (1ST  Ml  *C*  ( F  (l  1  TM+  1)  -(■  ill  IN)  )  1  C=(T-TN)/(TN*1-TN)»  ETC  , 

IT  tS  AsSUMF.O  THAT  THf  PARAMETER  I  1‘tCPEAsES  WITH  INCREASING  RECORD 
hUmBER  iND  MO  Flit  ’F.'JtMnS  ARt  PERMITTED.  I.E.  kTAPE3  SHOULD  rtt  CALLED 
',1  T*  TN0RFASTM6  VALUES  OF  T  ONLY, 

gT apf  1  pECOG"T7ES  TwO  ERROR  CUNDlMOMS  WHICH  SHOULD  HE  CHECKfU  for  in 
the  CAL'  I  NO  PROGRAM.  IF  TE°°=U  THEN  MO  ERROR  HAS  OCCURRED-  IE  IERR  =  1 
tHfn'thc  TIMS  VALUE  To  1  =  SS  THAN  (HE  TIME  VALUE  OF  THE  PRECEfuING  CALL 
TO  RT4P  =  3.IE  TFRR=?  ThEM  THE  11ME  VALUE  Is  GREATER  THAN  THE  TIME  VALUE 
ASSOCIATED  1,'TTH  THE  LAST  TNPUi  RECORD.  .  r_  „ 

t  THE  PRESENT  VERSION  of  RT&PE3  tACH  OUTPUT  RECORD  (FROM  TEuPb)  IS 
ASSUMED  TO  flF  IN  THF  fO»m* 

mF.TFtN,RETM(8?>  *7EtN  I ?2)  .UUN(«2*?2)  *F1  !82)  ♦  (•  2(82) 
mHfrf  Trlrj  TS  THE  TTwr  vaI.UF  AND  1  1  (82)  ,F?  (82)  ARE  THE  DESlRru 
fijmCTTOm  VALUES  CORRESPONDING  to  fin. 

dTapft  "LSO  OUTPUTS  ThE  OTMFNSIONALI 7ED  (AND  LINEARLY  INTERPOLATED 
TN  TIME!  WINDOW  TEMtEpAt'IRF  FUNCUN  IN  A  FORM  SUITABLE  F OR  Ust  WITH 
nlSPl.AY.  PROVIDED  IpRtNt=?. 

I FP )=' 

TM=r/Cl 

if  /iswn  1115,(11(1 
11 00  IS»'  =  1 

PFA'il  (T3t  NGiTL'IST  ,  RFTN.7F  IN,UE  I  NM.FIM,E2M 
TT=tLAST 

PMi»i=oETMf  1 )  *RAO 
RMAv=9FlM(MP 1 ) »"AD 
IF  (EOF ( TT3) )  1111.1120 
nil  1295=2 

GOTO  ?U(1T 

1)2.1  IF  ,T-Tl  1ST)  1130.1140,1190 
1130  ( FPp= 1 


0U4940 

0U4950 

004960 

0;4970 

OL4980 

UO4990 

0u5000 

005010 

0v5O20 

0O5010 

OU5040 

0O5050 

0u5060 

0u5070 

0o5Ci80 

0"50O0 

0.(5100 

6  os 1 10 

005120 

005130 

0uSl40 

0U5150 

605160 

OU5170 

005180 

OU5190 

005200 

005210 

01(5220 

015230 

005240 

005250 

6.(5255 

Oj5260 

005270 

665280 

005290 

005300 

005310 

0U5320 

005330 

005340 

005350 

0u5360 


Si  Af ' 


10" 


G,3T4  2064 

1140  RFAriUTGl  NG.TNF  x  T  .pfjn.ZF  IM.UF  1mP.F1o.F2P 
HIS  If  (T  .I.T.  TT)  lOnO.lOlfl 
1000  IERo*l 

G3Tn  2000 

C  JF  T  .Ft.  LA5TT  THEN  mOthING  MORE  TO  Of) 

1010  IF  (T  .Fn.  TT)  f,otO  ->000 
C  tF  T  ,LT.  TNFXT  THEM  a  OFAD  IS  MO  I  RFGUIRfD 
IF  |T  .LT.  TMEXT)  GOTO  1020 
Ia3o  pc^r,(tTT)  NG,TLASt.pfin,zfIn.UFINM.F1m.F2m 
IF  (EOF(TTD)  104o,10S0 
1040  I FQo=2 

GOTO  2000 

loso  IF  fT  .LF.  TLAST)  Goto  1080 

RFAn(ITT)  NG.TNF XT .of in.ZF  IN.UF I mP , F Ip .F2P 
IF  (EOF (T TO))  1  46(1  . 1 070 
1060  IFPo=2 

GOTO  2000 

1()T0  IF  (T  .|_c.  TMEXT)  GOTO  1020 
GOTO  1030 

1020  C=(t-TLAGT)/<TN,'Xt-TLAST) 

no  >oo  i=i. mpi 

Fl (t)=F1m(I)*C*(FiP<t) -F1M( I) > 
F?(T)=F?'A(I)-*C»(F?P(T)-F2M(n  1 
loo  CONTlMUF 

GOTo  <  2000 . 120 v  IP 
120  DO  130  1=1 . NP 1 
l)=RfiD»ZFTM(  1 1 
DO  >40  1=1  .HOI 

OFIw(  J)  =03*(IIFIt>!M(  J.  I  1  ♦C<1UFINP  (..)•  D-llFINM  IJ,  I  )  )  ) 

140  CONTlMUF 

UPItEI  ITol  I  .NP1  .tl.TM.MPl*  MM  IN. RmAX*  (  pF  IN  IJ)  . J*l.MPl) 

no  continue 

GOTO  2008 
1080  TTFmP=TLaST 
TLAcT=TMFXT 
TMExT=TTFMP 
no  1 10  1  =  1 . MP 1 
ft=f1n( 1 1 
F 1 M  f I ) =F 1 P ( 1 1 
F1P  f 1 1 =FT 
ft=f2m(1) 

F2M ( I ) =Fpp ( I ) 

FPP  f 1 1 =FT 
110  CONTINUE 

GOT  n 1 1 020 . 1 50 )  IP 
150  DO  160  1=1 .NP1 
00  >60  .1=1. MPI 
FTouFINMU.D 
I|FImM( J.T)=UFINP(  |*T1 
UFImP(J.T)=FT 
160  CONtINUF 
GOTO  1020 
2000  TT=T 

RFTilRM 

END 


005370 i 

QU53R0 

005400 

005410 

Ao5420 

005430 

Ou5440 

0O5450 

OU5460 

005470 

005480 

005490 

0O5500 

005510 

0u5520 

0O5530 

005540 

005550 

Oo5560 

Ou5570 

0o55R0 

005590 

005600 

0u5610 

005620 

005630 

005640 

005650 

Qi-5660 

005670 

005680 

005690 

0U5700 

00571O 

005720 

005730 

005740 

005750 

005760 

005770 

005780 

Ou5790 

005800 

0O5810 

005820 

005830 

0o5840 

Oo5850 

005860 

005870 

0U5B80 

005890 

OOS900 

005910 

005920 

0-15930 
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B.7  Subroutine  ALI 


SUBROUTINE  ALI  (* .aRG.VAL.V »N01M«FPS. IFR) 


SUBROUTINE  AH 


TO  INTERPOLATE  FUNCTION  VALUE  Y  FOR  A  GIVEN  ARGUMENT ‘VALUE. 
X  USING  A  GtVFM  TARLE  (ARG.VAL)  OF  ARGUMENT  AND  FUNCTION 
VALUES. 


iiSAGF 

CALL  ALI  (X.AOG.VALvY.NUIM.EPS. lERl 


DESCRIPTION  of  parameters 


-  THE  argument  value  SPEClFIEU  BY  INPUT. 

-  THf  input  vector  (DIMENSION  NDIM)  OF  AROUMtNT 
VAi UES  OP  the  table  (Not  DESTROYED). 

-  IMP  INPUT  VECTOR  (DIMENSION  NDIM)  OF  FUNCTION 
VA| UES  OF  THE  I ABLE  (DESTROYED). 

.  fHP  RESULT IN6  INTERPOLATED  FUNCTION  VALUE. 


-  AN  INPUT  VALUE  WHICH  SPECIFIES  THE  NUMBER  OF 
POINTS  tN  IARLL  (ARGiVaL). 

-  AM  INPUT  CONSTANT  WHICH  IS  OSED  AS  UPPER  ROUND 
FOo  THE  ABSOLiHE  ERROR. 

-  a  RESULTING  error  PARAMETER. 


M"\aR.E  (aRG.WAL)  SHOULD  REPRPSENT  A  SINGLE-VALOpD 

function  awo  should  be  stored  in  such  a  way.  that  the 

OISTANCpS  .aRS(ARGII)-X)  increase  WITH  INCREASING 
SUBSCRIPT  T.  TO  GEn-RATE  this  order  IN  TABLE  (aRG.VAL) . 
surrouttmes  atsg.  aism  or  atse  could  BE  USED  In  a 
PREVIOUS  STAGE. 

(?)  NO  ACTION  RESIDES  ERROR  MESSAGE  IN  CASE  NDIM  LF5S 

(3)  INTERPOi  Ation  IS  TERMINATED  EITHER  IF  THE  DIFFERENCE 
BETWEEN  TWO  SUCCESSIVE  INTERPOLATED  VALUE5  IS 
absolutely  less  than  tolerance  eps*  or  if  the  absolute 

VALUE  OF  THIS  DIFFERENCE  STnPS  DIMINISHING.  OR  AFTER 
(NDlM-1)  STE°S.  FURIHER  IT  IS  TERMINATED  IF  THf 
procedure  DISCOVERS  TWO  ARGUMENT  VALUES  IN  VECTOR  ARG 
WHICH  ARE  IDENTICAI  .  DEPENDENT  ON  THESE  FOUR  CaSES. 
ERROR  PARAMETER  1ER  IS  CODED  IN  THE  FOLLOWING  FORM 


IT  WAS  POSSIBLE  TO  reach  the  required 

ACCURACY  (NO  ERROR) . 

IT  WAS"  IMPOSSIBLE  tO  REACH  the  REQU1RFU 
ACCURACY  BrCAUSE  OF  ROUNDING  ERRORS. 

IT  WAS  IMPOSSIBLE  TO  CHECK  ACCURACY  BfCAUSE 
NOIM  IS  less  than  1.  OR  THE  REQUIRED  ACCURACY 
COULD  NOT  BE  pEACHEO  BY  MEANS  OF  THE  GIVEN 
TABLE,  noth  SHOULD  be  increased, 
the  PROCEDURE  DISCOVERED  TWO  ARGUMENT  VALUES 
IN  VECTOR  ARG  WHICH  ARE  IDENTICAL. 


SUBROUTINES  AND  FUNCTION  SUBPROGRAMS  REQUIRED' 


005940 
005950 
005960 
005970 
0O59B0 
01)5990 
006000 
0  u60  I  0 
006020 
006030 
006040 
006050 
006060 
0u6Q70 
0O6080 
006090 
006100 
0061 10 
006120 
006130 
006140 
006150 
506160 
006170 
006180 
006190 
006200 
006210 
006220 
006230 
006240 
006250 
006260 
01)6270 
006280 
006290 
006300 
0  06310 
006320 
006330 
006340 
006350 
006360 
006370 
506380 
006390 
006400 
006410 
006420 
006430 
006440 
0o6450 
006460 
006470 
506480 
006490 
506500 


^INTERPOLATION  IS  DONE  01  MFANS  OF  AITKENS  SCHEME  OF 

LAGRANGE  INTERPOLATION.  ON  RETURN  Y  CONTAINS  AN  INTERPOLATED 


FUNCTION  VAi  UF  AT  POINT  X«  WHICH  IS  IN  THE  SENSt  OF  REMARK 
(3)  OPTIMAL  WITH  RESPECT  TO  GIVEN  TABLE.  FOR  REFERfNCE.  SEE 
F^n.HUOERRAND.  InTMOOiiCTION  TO  NUMERICAL  ANALYSIS. 
MCGRAW-HILL.  NEW  YQHK/TUHUMTo/LnNuuN.  19jo.  cr  .‘»9i ->y. 


OTMFNSION  ARG(l). vAL(l) 
TFR=2 


006510 

006520 

006530 

506540 

006550 

006560 

506570 

006580 

606590 

0U6610 

506620 

006630 

506640 

006650 

506660 

006670 


...  .  W-< 
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007340 

607350 

007360 

607370 

007380 

007390 

007400 

007410 

007420 

607430 

0O7440 

007450 

0O7460 

007470 

007480 

607490 

007500 

007510 

007520 

007530 

007540 

607550 

007560 

007570 

007580 

607590 

007600 

007610 


(ntMCMSinN  NI)1M)  IN  CASE  ICOL*l.  IN  CASE  TCOL=2* 

UA|  TS  THE  vecior  of  FUNCTION  AND  DERIVATIVE  values 
(Dimension  2*nuimi  which  are  stored  in  pairs  (I.E. 
each  function  value  is  followed  by  its  derivative 

IHFUNMMRFR  OF  points  WHICH  MUST  BE  SELEOTfO  OUT  OF 
THr  GIVEN  IABI.F. 


dEMApkS 

NO  ACTION  In  CASE  IHOW  LESS  THAN  1. 

IF  INPUT  VAlUF  NDIM  IS  GREATER  THAN  IROW,  THE  PH0ORAM 

SFI FCTS  ONLY  A  maximum  I  ABLE  of  IROW  POINTS.  THERfFORE  the 

USFP  OUGHT  TO  CHFCK  CORRESPONDENCE  BETWEEN  TABLE  (aKG.VAL) 

and  its  dimension  by  Comparison  of  noim  And  irowi  in  order 
TO  GET  COpbfCT  RESULTS  IN  FURTHFR  WORK  WITH  TABLE  (ARG.VAL) 

this  test  MAY  «f  done  before  or  after  calling 
subroutine  ATSF. 

SUBROUTINE  ATSF  ERPtC  I  ALLY  CAN  RE  USED  FOR  GENERATING  THE 
TARLF  (ARG.vAij  NFEUtO  IN  SUBROUTINES  ALI  •  AHI.  AND  ACFI. 


uETHnn 


007620 

007630 

007640 

007650 

OU7660 

607670 

607680 

007690 

007700 

007710 

007720 

007730 

007740 

607750 

007760 

607770 

007780 

007790 

007800 

007B10 

007820 

007830 

007840 

007850 

007860 

007870 

007880 

007890 

007900 

007910 

607920 

007930 

007940 

007950 

607960 

007970 

007980 

607990 

008000 

008010 

008020 

608030 

008040 

608050 

008060 

008070 

668080 


OTMfNSION  Fill. APG (11. VALll) 

IF  1 1 ROW- 1 1 19.17.1 

CASF  DZ=n  IS  CHECKED  OUT 
1  IFI-1ZI2.17.2 
P  NwNdIm 

IF  M  IS  GREATER  than  IROW*  N  IS  set  Eoual  to  IROW 

IF ( M- I  ROW  14.4.3 

3  N=IrOW 

CDMoUTATTDN  of  STARTING  SUBSCRIPT  J. 

4  ,|=<*-ZS)  /nz»1.5 
IF(.|)5.S,6 

5  .1  =  1 

6  I F  (  I”  I  RDM  1  8.8*7 

7  l=IoOW 

sfnfrattdn  of  tarie  arg.val  in  case  oz.ne.o. 

B  11=  I 


ARGrI>=7S*FLOAT(IT-l)»nz 

IF ( iCOL-PI 9. 10*10 
9  VAL(I)=F(II) 

GOTO  U 

10  VAL (2*1-1 1 =F ( 1 1 ) 

I T I  =  1 1 ♦ TROW 

VAL ( 2*1 ) =F ( 1 1 1 ) 

11  IF ( I.JP-IROW) 12. lG.l? 

1?  IF  (  l-.IL-l  I  13.14.13 

13  IF((APG(!»-X)«D7) 14,15. 15 

14  19=  |R.1 
IT=  I*  IR 
GOTn  16 

15  II.  =  lL.1 
11=  I-  !L 

16  CONTINUE 

return 


VUOAUV 
008110 
008120 
008130 
OoB 140 
0O81S0 
008160 


CASC  DZ=A. 

17  APfi/  I{=2S 

v/alM>=^(U 

TFItCOL-2)  19.19.  I<> 
19  VAL(2I=F(?I 
19  RETURN 
END 


B.9  Subroutine  DQG24A 


008170 

008180 

008190 

008200 

008210 

008220 

008230 

008240 

008250 

008280 

008270 

008280 

008290 

008300 

0O831O 

008320 

008330 

008340 

008350 

608360 

008370 

008380 

008390 

068400 

008410 

008420 

008430 

008440 

008450 

008460 

608470 

008480 

008490 

008500 

008510 

008520 

0U8530 

008540 

008550 

008560 

0U8570 

008580 

008590 

008600 

008610 

008620 

008630 

008640 

008650 

008660 

008670 

008680 

008690 

008700 

008710 

008720 

068730 


SURpOUTIME  D0G24A  f  X|.,XI).X4> 


9U8R01  iT I NE  0OG24 


PURPOSE 

TO  COMPUTE  iNTFr.OALlt-CTlX) 


SUMMED  OVER  X  FROM  XL  TO  XU) 


iSAGF 


CAI  L  OOG24  rXl_.XU.FCl  .Y) 

PARAMETER  FcT  PFOItlRES  AN  EXTERNAL  STATEMENT 


nESCRIPTION  OF  PARAMETERS 

XL  -  OOllRlF  PRECISION  I  ONER  BOUND  OF  THE  INTERVAL. 

Xu  -  OOuBI  F  PRECISION  UPPER  BOUND  OF  THE  INtERvAL. 

FCT  -  THf  name  ot  am  external  double  precision  function 
subprogram  used. 

y  .  THF  resulting  double  precision  integral  value. 


REMARK'S 

none 


sURROi  IT  INFS  ANn  FUNCTION  SUBPROGRAMS  REQUIRED 

THF  EXTERNA)  OOURLE  PRECISION  FUNCTION  SUBPROGRAM  FCT(X) 
MUST  BE  Furnished  8T  THt  USER. 


'ETHOO 

Evaluation  ts  done  by  means  of  24-point  gauss  quadrature 
formula,  which  integrates  polynomials  up  to  degree  47 
exactly,  fop  reference,  see 

v.t. krylov.  approximate  calculation  of  integrals* 
macmtllan,  nEw  yopkxlonuon,  i96?.  pp. 100-111  and  3-17-340 


otmrNsiom  xau) 


a=.rdo*ixu.xl) 

B=Xu— XL 

C=. *9 759 76099985106800*8 

XA<i)=A.r 

XA(2l=A-C 

C=. 4873642779856547500*8 
X A ( 3>  =A+r 
XA (4)=A-C 

C=. 469137276001 3663800*8 

XA(R)=A.C 

XA(4)=A-C 

C=. 4432077635022005200*8 

xA<’)=Alr 

X4(0)=A-C 

C=. 4  loo A  4 99298695 14600*8 

XA(o)=A*r 

XA('0)=A.C 


C=.->7na6?095789;>77nri0«» 

x»i'H=A*r 

XA  ( l  21 =A-C 

r=.  72i(i  44R259484fl77«on<,R 

n  ( «  3)  =A.C 

XA(*41=A-C 

C=*77?7\ 7 7356944 1q7700*R 
XX  <l5i=A»0 
XA < 161 =A-C 

C  =  .7l68947S3Rri:t2RS70<!»R 
»A  (>71=a.C 
XA ( i 8) =  A-C 

r,-.  i575»n)9«4B98i6Rn9*R 

XA('9)=A.C 

x*  (7,ii  =x-r 

C=.95S594737  36H;'*)i59-1*R 
XA (7l |=A.O 

XA(72t=A-C 

C=.  7202A4464)13i]2«l1O-l»e 

X  A ( 731 =A.r 

X  A ( 74 1 = A-C 

RpTiiRN 

END 


6/8750 
0/8740 
61/8770 
6/8 780 
6 .18790 

#Lsboo 
6/88)0 
6n88?0 
6/8830 
6 1/8840 
6/8850 
6/8840 
688870 
0/8840 
0/8890 
6  .8900 
6/8910 
6/8920 
0089)0 
008940 
0/8960 
6/8940 


B.10  Subrotitirw  DQG24B 


0>8970 

6/8990 

6/8990 

6/9000 

6/9010 

6/9020 

01/9030 

009040 

6/9050 

6/9040 

6/9070 

6 1/9090 

669090 

6  /9  100 

6u9I|0 

01/9120 

009130 

6/9140 

6/9150 

0/9140 

0/9170 

O'  9180 

0/9190 

0/9200 

6/9210 

6/9220 

6/92)0 

0/9240 

6 1)9250 

6/9240 

0/9270 

0/9280 

6/9290 

6/9300 

0U93I0 

6/9320 

6/9330 

6/9340 

6/9350 


UHRO'iTINE  000/4 


nlJPPOSF 

To  COMPUTE  TNTCGPAL IF  CT 1X1 


SUMMED  OVER  X  FROM  XL  TU  XUl 


iiSAOF 

cm  i  00024  ,X|  .xii.FCl.y) 

PARAMETER  Fi-T  PEOlllMtS  *N  EXTERNAL  STATEMENT 
dF^CQtPTTON  OF  P(\DAMFTtHS 

xi  -  nouRt  f  ddeCistun  loner  bound  of  the  interval. 

xm  -  nOnBI  f  RrECISTUN  upper  BOUND  OF  THE  INTERVAL. 

FCT  _  thc  mame  of  an  external  double  precision  punction 

SUaPROGPA.M  USFU. 

Y  _  THr  DFSHLTlNG  DOURLE  PRECISION  INTEGRAL  VALUE. 


oE  'lAP^S 
WE 


OTmcNSIom  FCT  < I » 


0^9360 
009370 
0j93H0 
0'*9390 
6 09400 
009410 
OJ9420 
009430 
009440 
0J9450 
009460 
009470 
0)9460 
009490 
009500 
009510 
0U9520 
009530 


R=Xu-XL 
1  =  1 

Y=,a1706148999935q94D-2*  (FCT  ( 1 )  *FCT  (1*1)1 
1  =  1*2 

Y  =  Y  ♦  • 149656943144=64320-1* (FC I (1 1 »FCT ( 1*1) ) 

1  =  1.2 

Y=Y*.?21387194087n99n3O-l*(FCI  (1)  *FCT(I*1)  1 
1  =  1.2 

Y=Y*. 296492924577 Ifmcn-IMFC  I  ( 1 1  *FCT  ( I  *1)  ) 

1  =  1*2 

Y=Y*.  36673240706540 1 530-1*  (FM  (1)  *FCT(I*1)  ) 

1  =  1*2 

Y=Y**430Q60a07  66  976634  0-l*(FCl(ll*FCT(I*D) 

1  =  1.2 

YsY* * 464  4932605204694,40- 1  * (FC 1  (I)*FCTfI*l)  ) 

1  =  1.2 

Y=Y*. 537221 350579624170-1* (FC1 (I) *FCT(I*1) ) 

1  =  1*2 

Y  =  Y*. 57742834  0266624  01 0-1*  (Ff.l  ( I )  *FCT  (1*1) ) 

1  =  1.2 

Y=Y». 6083523646 39nl696D-l*(FCI (1)*FCT(I*1) > 

1  =  1*2 

Y=Y*. 629) 67281 734141440-1* (Fell  1 1 *FCT ( 1 *1 ) ) 

1  =  1.2 

Y=H#(Y*. 6 396909767 33760780-1  * (FCT( I) *FCT (1*1)1) 
RETURN 

End 


009540 

009550 

009560 

0u9570 

009580 

009590 

009600 

009610 

009620 

009630 


ail  Function  IKIRKP 


009640 

009650 

609660 

0O9670 

009660 

009690 

009700 

009710 

009720 

009730 

009740 

009750 

009760 

009765 

009770 

009780 

009790 

009600 

009810 

009820 

009825 

009830 

009835 

009840 

009850 

009860 

009870 

0u9880 

009900 

009910 

009920 

0U9930 

009940 

0U9950 


OCA,  FUNCTION  IK  I OKO  (I  I*  V*  1 ) 

APRIL  11.1974 

this  function  comoutfs  the  kihkhdff  intensity  function 

A!  OmG  TH=  11=0  ANO/OO  V=0  AXIS  OF  THE  PLANE. 

5FF  COMMpNTS  IN  IkIpk  AND  COMPUTE  FOR  BACKGROUND  INFO. 

IT  IS  VALID  ONLY  FOR  CONSTANT  TEMPERATURE  WINDOWS. 
niM=NSIOM  A A ( 10) 

COMmON/I FILES/ l T3.IT4, I T5* l T6« IT7.ITR 
CDMhON/VTCTOP/VV 

C0MH0N/PHlBLK/CSlo«CS?R,Ci>iT>tS2T»XS«uX  »NF  .MNNT.EPP.Fl  (2n0)  * 
♦F?(700) ,HOLD.ALjHA.KF.TLAST.TNEAT. IERp.IP.HPI.ISW.NGAUSS.' 
♦PA0.NP1.C3.C1 

COMPLEX  a J0Q.CRH0O.CTHETA0.AiU.A20.A3O.A4Q.A6Q.A7O 

rfai  ke 

DATA  (AA(1) ,1=1.10) /I. .-.99999999958. .4999999206, -.16666=3019, 
.. 041 6573475, -.00830)3898,. 001 3298820, -.0001413161 .6,. 0./ 
vv=w 

CAL)  PTA°E3(T1 

IF ( tERR.nE.O)  GOTO  2000 

CTHfTAQ=fS1T*F1 I 1i*4.»CS21*F2(1 ) 

CTHrTA0=CTH£TAQ7KF 

CPHnQ=CSlR»Fl(l)*4.»rS?R*F2(l) 

CRHoQ=C9HnO»KE 

AJ0a=(0.,1.) 

A2Q=CEXP I  A J0Q*CRHoQI 
A3Q-CEXP(AJ00»CTHfTAD) 

A1Q=A2Q-A3Q 

A=-(ALPHA»»2I 

IF  I A  ,LT.  -1000)  GOTO  110 
EXPa=EXP(A) 

A5=2.*(A/(l,-EXPA))»»p 
GOTO  120 

expa=o. 

AS=7.*A»A 


009960 

009970 

0099BO 

009990 

610000 

610010 

610020 

010030 

610090 

010050 

010060 

610070 

610080 

010090 

610095 

OiOioo 

616110 

010120 

610130 

616140 

610150 

010160 

610170 

010180 


44QoEAL=.S*(  <EXPA*<A*C0S8*H*S1nB))-AI  /(ASQ.BSQ) 
a40tmag=-.5*<  «expa*<  a»stnb-b»cosb>  >*B)/< asq.bsq) 

A4Q=CMPLV (A40REAL.440IMAG) 

1KIoKP=AB»*  <CABS<a2Q*A40-A6Q)  <CARS<A3<1*A40.A6Q)  >  **2l 

RETURN 

100  IF  (-A  .GT.  .6931  GOTO  1000 

CALI  COHnUTEfC.AA.FFl .FF2*1EB> 

1E(tER.E0.2)  GOTO  1000 

1KToKP=A5*(  ICAB5(a20»FF1-A70|I**2»(CAbS(A3Q»FF1«A70)>*»21 

RETURN 

1000  WR1.E  (TT5.10I 

10  FOR'«AT(/«  ALPHA**?  T5  OUT  OF  RANGE*) 

2000  RF.TURN 


B.12  Subroulirw  COMPUTE 


010190 

010200 

010210 

010220 

616230 

010240 

610250 

010260 

610270 

610280 

610290 

610300 

010310 

010320 

610330 

010340 

010350 

010360 

010370 

010380 

010390 

610400 

010410 

010420 

610430 

016440 

610450 


subroutine  Compute  ic.aa.p o.fi.ieR) 

THIF  SURPOUTINE  RETURNS  THt  APPROXIMATION  TO  THE  INTEGRA) 

Jo'  (1/V)**2*  INTEGRAL  IT*00(Y)*E**(-CY**2))OY)  over  (O.v) 

Fla  i1/V)**2MNTEGrAL  ( J1  (YI*E**t“CT»#2)  > OY >  OVER  (O.V)  GlvLN  BY 
E0= (1/V) *«2*SUM I  A (I ) *(C»*D  * ( INTEGRAL  I Y*» 1 21*1)  *JO(Y) UY) ) )  AND 
Fl  =  ( 1  /  V)  »«2*SUM  (All)*  (C**l )  MNTEORAL  I  Y**(21  )*J1  ( Y)OY) ) )  UVER  10.  V) 

WHERE  THe'ai!)  ARf  given  IfOP  EXAMPLE)  IN  NBS  55  P.  71 
NOTE  THAT  FOR  THE 

ARBoOXImaTIONS  TO  be  VALlO.  0l=C[*.693 

COMuON/VTCTOR/V 

01 meNS I On  AAI1) 

RFA|  .11 
IER  =  1 
1=0 

F0=rl=0. 

1  lo  TE(aM!*1)  .EO.O.)  goto  2000 
E0=e0»AA(I*1)*IC»»I)*.)I  (0*1) 

E  tarl.AA  1 1 *1 )*  CO«*I >  *,II  f  1  *  I  > 

1  =  1.1 
GOTO  MO 
21)00  E0=E0/V**2 
'  F1=e1/V*»2 

RETURN 
11)00  1ER  =  2 
RETURN 
ENO 


mm 


::-  ■•:  -.  . 


^Pj^Sl^^^S^^it^ilWWiPitt'MwwiWiyiiftatf  »**rvtwan**r**r  I,,^,».~.„,- 


B.13  Function  Jl 


1 


S 


in 


15 


20 


25 


30 


35 


C 

oral  fiin-TION  JHT.>n 
ora|  all  l  .  N?2 
COM'iOM/VT  CTOP/V 

c  jr  7=1,  THEN  TH 1 5  FUNCTION  RfJUHnS* 

C  INTrGoAl  t  (T«*2N)  Jl  (T>r>T>  0V£o(0»t>) 

c  IF  T  =  0«  THEN  this  function  RFlURMS 

c  iNTrGOALI  (T*»  (2  *  t )  )  lOITIOT  )  DOE3  (0.V) 

C  SrE  LUKE.Y.L.  "INTEGRALS  OK  BtSSFL  FUNCTIONS" 
C  MCGoAN  01  HILL  U6p  10-51) 

C  00  iBS  SS  IP,  4ft 0 1 
I  1  =  T  ♦  1 

GOTO  (110.100)  U 
100  IF  In. HR,  -0  1  GOTO  IPO 
IT  =  t  .-HFsJF  (0) 

RF- J,  |Rf,| 

120  Nl=-N 

|T  =  p.«RFsJF(2> 
r*P=2»N 
<?  I  -=2 
GOTO  130 
1 10  N1  =- (N*l I 
II  =  oESJF(l) 

FX°=2»N*1 

K2U1  ■'  - 

1 3o  N1 1 =N22=1 
NP=m*2 
1  41)  N 1 =M 1 ♦ 1 

IF (m! ,En, 0 )  00TO  POOA 
KP1=K21 *p 
N1UN11i.n1 
N??=N?2®n2 
NP  =  m2»1 

JT  =  iUK?1«Nll/N?P»BrGJF(K21) 

GOT  n  14<1 

2000  li*v»»E)(P/(N*l>*JT 
RFThRM 
EMO 


010460 

010470 

010480 

010440 

010500 

010510 

010520 

010530 

010540 

010550 

010560 

010570 

010580 

010540 

010600 

010610 

010620 

010630 

010640 

010650 

010660 

010670 

010680 

010640 

010700 

010710 

010720 

010730 

010740 

010750 

610760 

010770 

010780 

016740 

010800 

010810 

010820 

610830 


B.14 


Function  BESJF 


1 


5 


10 


15 


20 


25 


C 


10 

p0 

200 

30 

3o0 


FUNCTION  RESJF  (Ml 
CohnON/viCTOR/V 

CnM>«0N/TrJLES/IT3.ITA.IT5«lT6»lT7,IT8 

N=M 

D=.rt01 

CALI  BES  HV.N.Ml.O.TFR) 

IER=1ER*I 

SOU  (10.20.36.40.50)  IfR 

RES  |F=B.I 

RETURN 

NOItE  (Its. 200) 

format <«  oroeR  of  bfg  fun  neg. program  stop*) 

GOTO  1000 

R°I tE  (ITS. 300)  „„ 

FORMAT (*  APG  OF  BfS  El  in  NtG  OR  ZFRO. PROGRAM  STOP*) 


40 

41)0 

SO 

500 


goto  loon 

NPItE  (ITS. 400) 

FGRuATl*  ACCURACY  or  PFS  EUN  NOT  OBTAINED. PROGRAM 


GOTO  10 

WRItEIITS.SOO) 

FOR*. AT  ( *  RANGE  FPROR  IN  BtS  FUN. 
GOTO  10 


RANGF  AOJUSTED*) 


loOO  STOP 
End 


CONTINi  its*) 


010840 
010650 
010860 
010870 
0)0680 
010540 
01OSOO 
010410 
010420 
610430 
0 1 0440 
Cl  0950 
610960 
016480 
010990 
011000 
0 1 1020 
U 1 1030 
311040 
01 1060 
011070 
0110H0 
OillOO 
0111  10 
011120 


I 

I 

1 


/ 


183 


. 


B.15  Function  BESJ 


SIR^OUTT-if  SESJtX.N.R.I.n.ltR) 


SUBROUTINE  BFS  I 


COMPUTE  THE  J  RFSSEL  FUNCTION  FOR  A  GIVEN  ARGUMENT  AND  ORDER 


USAGE 

C A|  L  BESJ|X.N.R,t«n«ItR) 


oESCRTOHON  OF  PARAMETERS 

K  -THF  ARGUMENT  of  the  J  ftESSEl.  function  desired 
N  -THE  OROcR  OF  THE  J  BESSEL  FUNCTION  DESIRED 
H.I  -THF  RESULTANT  j' BESSEL  FUNCTION 
D  -REOUIBFn  ACCURACY 
IFR-RESULTAmT  ERROR  CODE  BRERS 
TER=0  NO  FBOOR 
IFR=1  N  is  NEGATIVE 
jfr=2  X  IS  NEGATIVE  OR  ZERO 
jfR  =  3  RrQUTREO  ACCURACY  NOT  OBTAINED 

ffTR=:4  range  OF  N  COMRApED  To  A  NOT  CORRECT  (SEf  REMARKS! 


oEmAP^S 

N  must  BE  greater  THAN  OR  FOUAL  TO  ZERO.  BUT  IT  MUST  BE 

“SOT«-,..  ?/3  FOR  X  LESS  THAN  OR  EQUAL  TO  Is 
RO.X/2  for  X  GRFATFR  than  15 


SUHROUTINES  ano  FIINCTION  SUBPROGRAMS  REQUIRED 

nomf 


RFCURRFNCF  RELATION  TECHNIQUE  DESCRIBED  BY  H.  ODLDsTEIN  AND 
R.m.  THALE»."RECUBRENCF  TECHNIQUES  FOR  THE  CALCULATION  OF 
BESSEL  FUNCtIOMS"«M.T.A.C.»V.13.PP.102-108  AND  i.A.  STEGUN 
ANn  M.  ABRAmONTT7, "GENERATION  OF  BESSEL  FUNCTIONS  ON  HIGH 
SpcFD  COMPUTERS" .M.T. A, C. »V.  1 1 . 195T.PP. 255-257 


ft  l*,0 

if(m) 10.70.2n 
in  ifr.i 
rfTmRN 

Zo  tF(v)30,30.31 

30  IFR=2 
RFTmRN 

31  V <X-I5.l32.32.34 

3?  MT'ST=?0.«10.,X-X«*  R/3 
GO  tO  36 

34  mtfsT=9o.*X/2. 

•  36  if(ii-NTFgT»40.3S.gB 
3ft  IFR=6 

NsNTEST-1 
GOTO  41 


40  IFR^O 
41  Nl*M*l 

SORT V*.0 


CQMnUTE  STARTING  vAl.llF  OF  H 


IF<»-5. iso. 60.60 
50  MA=y*6. 

GO  tO  70 

60  MA  =  > .4»X.60./X 
70  Mft=N»IFTX(X)/4»? 
U7FsO=MCYO<MA.Mm) 


SET  UPRFD  LIMIT  OF  m 


mmay*NIfsT 

lOO  QQ  *9*  m=m7ERO. mm aX. 3 


011130! 

011140 

011150 

011160 

011170 

011180 

01)190 


011210 
011Z20 
611230 
011240 
011250 
011260 
011270 
011280 
011290 
011300 
011310 
011320 
011330 
011340 
011350 
011360 
011370 
011380 
011390 
011400 
011410 
011420 
011430 
011440 
011450 
0 1 1460 
011470 
011480 
011490 
011500 
Ol  1510 
0)1520 
611530 
0 11540 
011550 
011560 
011570 
01)580 
011590 
011600 
011610 
01)620 
011630 
011640 
011650 
011660 
011670 
011680 
011690  | 
011700 
011710 S 
011720 
011730 
011740 
011750 
011760 
611770 
011780 
011790 
611800 
011810 
01)820 
01)830 
0) )840 
0)1850 
611860 


non 


SET  FIM) .EIM-1) 

Em=.0 

4LPhA=.3 

IF  (>.«- (M/o)  *21 12n.  110.120 

110  JT=_1 

•in  to  iv 

i2o  it=i 

130  M?=m-2 

00  160  K-=1.M2 

MK=M-K 

eMK=2.*F|  OAT  (MK)  *FM)  /X-FM 

FM=rMI 

fm i =Bmk 

tF(.-K-N-)  I  150.140. ISO 
140  R  l=aMK 
150  IT  =  -JT 
5  =  1. JT 
5=1. JT 

160  A|.°M*  =  ALnHA.RMK«5 
HMK-2.*Fm1/X-FM 
TFC.iMBO.PO.Hn 
1  70  8  JstlMK 
180  ALdhA=AL0HA.8MK 
B.I=nJ/Al  OHA 

[F ( .8S<8  l-RPPEV)-.BS(n*BJ>  1200.200. 150 
190  Ro»rV=8  | 

IFP  =  3 
■poo  return 
Emo 


1)11870 
011880 
011890 
01 1900 
011910 
011920 
011930 
011940 
011950 
011960 
011970 
01198(1 
011990 
012000 
012O1O 
012020 
012030 
012040 
012050 
0 12060 
012070 

Oi?Oro 

012090 

012100 

012110 

012120 

012130 

012140 

012150 

012160 

012170 

012180 


B.16  Subroutin#  GETDATA 


SMBoOUTTnE  GETDAT  A (DATA  TN*NV. 1 1 N.  I  OUT  1 . 10UT2. 1  INI » ISJ  It 

C  TMF*MM,'Zp|Ttoio5ECOF  TulS  SUBROUTINE  IS  TO  INPUT  CHARACTER  STplNG  OR 
C  m'mERICaL  OATA  IN  A  fflrOMxERSAl  IONAC*  MODE  I r E r  fof>  INPUTTING  UATA 
c  TO  PROGRAMS  qFING  RUN  UMOE»  INTERCOM. 

c  IT  At  90  MAT  OF  U5E0  for  patch  PROCESS  I  NG-lN  which  case  THE  OaIA 
C  9H0UL0  appeal  6  VALUES  TO  A  cahd.  DAtA  WHICH  IS  NOT  to  BE . 

C  SHOULO  °E  RFDLACFO  PY  blanks.  FOP  BATCH  ALL  OR  SOME  Of  THt  DATA  MAT 
C  he  OFFamLTEO  HY  USING  Am  FOR  AETFH  THE  LAST  DATA  TO  BE  INPUTTED. 

C  THF  SUBnOUTTuF  ASSUMES  THAT  OEfAOLT  VALUES  HAVE  BEEN  ASSIGljEn 
C  1NO  win  PRINT  OUT  THFSF  DEFAULT  VALUES  BFEORE  ASKING  FOR  OATA  INPUT. 

c  tt  asks  for  new  values  by  printing  out  the  wnamesw  of  the  data  and  then 

C  <;KTDOTNr.  A  LINE.  VALUES  TO  BE  ASSIGNED  TO  THE  NAMES  SHOULD  BF 

;  entered  starting  in  the  samf  column  as  thf  start  of  the  name. 

C  each  oAtIIM  IS  ASSIGNED  in  COLUMNS  and  OP  to  6  ITEMS  MAY  BE  INPUTTED 
C  TN  A  SINGLES  POW. 

c  argumfntS»»»»»»»»*»»»»»»**»«»# 

c  oATAIM  (DIMENSION  (NV.II  WHERE  NV  IS  THE  TOTAL  *  OF  OATA 
C  TO  flr  INPUTTED) 

C  oATAIM  hOLOS  THE  FOLLOWING  INFORMATION  ABOUT  EACH  DATUM- 
C  mAmE.vAi  UE.OOOE  WHERF. 

C  NAME  =>  NAMF  BY  WHICH  THF  DATUM  IS  IDENTIFIED  TO  THE  USER  (It  MAY  OR 
C  MAY  MOT  he  FOIIAL  TO  The  FORTRAN  variable  NAME  10  BE  ASSIGNED  10  THE 

C  VALUE  =>  NUMFPICAL  OR  CHARACTER  STRING  VAlUE  10  BE  ASSIGNED  (THE  DATUM) 

C  CODE  =>  How  THE  DATUM  Is  TO  BE  INTERPRETED 

C  -l  =>  CHARACTER  STRING 

C  0  s»  INTEGER 

C  1  =»  FLOATING  POINT  NUMBFR 

C  mV  TOTAi  NUMBER  OF  nATlJM  TO  BE  INPUTTED 

C  I  IN  FTLt  MO.  FOR  INPUTTING 

C  TOUT!  poIMARy  OUTPUT  FlLF 

C  TOUT 2  SfCONOARY  OUTPUT  fu.F 

C  TSIZF  =,  ST7E  OF  EIPgT  DIMENSION  OE  OATATN 


012190| 

012200 

012210| 

012220 

012230 

012240 

012250 

012260 

012270 

012280 

012290i 

012300! 

012310 

"12320 

012330 

012340 

012350 

012360 

012370 

012380 

012390 

012400 

012410 

012420 

012430 

012440 

012450 

012460 

012470 

012480 

012490 

012500 

012510 

612520 


35 


41 


45 


SO 


5S 


6ti 


65 


70 


75 


fit; 


65 


90 


95 


100 


105 


no 


Qrui-NSlfV'  PAT  A  I  (  tSTTPT  I  ■  1 A  <  6) 
coM*o-i/s-Mse/iriMM.inuTKiN»iNDicc 
TMTcGFR  PATATN*- 
F«T=RNAt  SStilTCH 
CAL,  FPR6FT(K0Ul'T.?V>(’7) 
K'llClH=KOIINT 
IF{rM01C,MF.O)  ?0P«?10 
■POO  T5W=2 


u  =  ■ 

I.=T'|0IC-I 
GPTp  1056 
p i o  ccntimuf 
I6‘1  =  1 

mm  =DOfl'’OOOoOOopoOTonr.63b 

T  tmmM=1 ,m 
tOPTNN-T  0UT1 
TPU+T  =  lmiTl 

1 5.M  r  1 

CALi'^SAwtCHUIAM  .TS.n.lOHHtAP  DATA  .SwFILE-l  .RETURNS  ( 106nl 
TF  iISMI  .FO.  ll  1  3*>P  *  1 290 
noo  ”19 T tE  (TpIITI-17)  t!vi1 
.JF.INO  TTI'l 


ocai-,(timm  datatn 
afutNO  ttMI 

IF  it'lF  (T  TH1 I  1  1400. 1790 
l*  O')  wofE(lnMTl»?4)  TiNll 

1  P91)  I  Ml  IF 

CA|  I  SSMTCH 1 0. 1 5WA  •  1  pwnp FAULTS  l.ShIStEO) ,RtTURNS(1660) 
{f’iISUA  .ME.  11  r.OTO  11  =  0 
WOI'E  I  IQ'iU  .  1 ) 

1140  30  >10  1-I.NV 
T1=tSI?f*T 


IM  =  I 

tI?»II*!5!7E 

r=  (DATA1MI J12) l  l 0PP •  1 030 » 1  040 
l->2fl  .ioItE(IOi'TT.P)  OATAT'K  U  )  lUATAl  Ml  1 1  1  ) 


goto  11" 

1 0  3  0  uIPItE  C  t  it  ITT  .3)  OAT  1  |M*  T  1  >  *DA  I  AIm  (1 1 1 1 
GOTO  IIP 

ln40  40 1  rE  f  IOl  ITT  >  4 )  HAtATmI  It  )  .UATAINI  I  I  1 ) 

110  COM' I  Ml  IF 

"  GOTO  II  1=0. 11301  TS'I 

1,50  CAt.1  SSWTCHIO*  16-15.1  OHMAMt-VALUE.SH  MODE)  .RETURNS ( 1060, 
IF  f  ISO'S  .FQ.  1,  l?Tft.li)5U 
1  >51  |.=  1 

1GW.2 
1.1. =  ■ 

1-55  l.=L*LL 

IF  (L  .GT.  5VI  GOrf,  1"60 

nii  i./otte  i tout n i 6i  oataimiisizf»l) 

LL=’ 

nn  >oo  .,"1.6 


t  *  l  •>  =1  Cl  4 
1 oO  COMTlMUF 

RFAPUIN.IO)  <  1“  (  I,  "  1=1  .6, 

IF  ( EOF  I T I M , ,  13P".1P70 

n2o  imdtCC=i 

GOTO  106(1 

l "71  IF  (IAI11  .EO.  ,R|  AOX,  GOTO  1055 

no  >40  i" i«b 
no  .80  K-1.10 

if  (MKGFTXIIAU,  .k.,1  .FQ.  loot,  GOTO  1Z70 
1=0  CONTINUE 

no  'RC  ,"1.6 
,p=L  *  1 

F=0*TA!nMP*2*I5TtE) 

IF  (F,  1P6J.1100.111P 

l"9j  IF  rIAlI,  F.  [B|  Amk ,  DECOOEUO.il.  I«un 
GOT"  1080 

noo  C»LI  BJU5TIIAIJ)  1 

IF  (IAl.l,  .NF.  IRi.AMK)  DECODE U0.12.IAIJ11 
GOT  o  1080 

liio  cali  rjustuaum 

IF  f  X  ft  1  1,  .NF.  TRl  ANK1  DECODE  UU.13.lAlU), 
GOTO  1081 
laO  CONTINUE 
1080  LL=  l 

IF(rNnic.MF.O)  I  L"lr00 
I f  (KOUNT  .EO.  K0UNT1I  GOTO  1055 


dataini JR) 


UATAIM(JR) 


DATAIN(JR) 


012530 

012540 

012550 

012560 

012570 

012580 

012590 

012600 

012610 

012620 

012630 

012640 

012650 

012660 

012670 

012680 

012690 

012700 

012710 

012720 

012730 

012740 

012750 

012760 
012770 
012780 
012790 
012800 
612810 
U12R20 
612830 
612840 
012850 
612860 
612870 
012R80 
612890 
012900 
612910 
012920 
012930 
012940 
012950 
012960 
012970 
012980 
612990 
013000 
013010 
613020 
613030 
013040 
613050 
013060 
013070 
013080 
013090 
6  1  3 1  00 
013110 
613120 
613130 
613140 
013150 
013160 
6131  /0 
613180 
013190 
013200 
013210 
013220 
013230 
013240 
013250 
013255 
013260 
013270 
6 1 3280 
013290 
013300 
613310 


186 


r±,  m  ..  ■  %  tv  ' 


<0UmT1=K1IINT 
WOI  -E ( 10MT1 *25) 

1?70  RPItE ( IlitTl  *23) 

1780  ROItETIO'ITI.R) 

no  ’50  1  =  1  *6 

1M»)  =  10h 
150  CONTINUE 

PEAnfllN.lO)  <1A(I>.T=1.6> 

if  cEofiiinu  mo«io«5 

1130  INOf CC=1 
GDTi  1060 
loss  ii=t*(h 

IF  /II  .Fit.  IBLANx)  OOTO  1060 

no  t3(l  t=l«NV 

J=I.ISIZ5 

IF  (II  .FO.  DATAImLU)  0010  1160 
no  CONTINUE 

OPItE(IiuT1.16) 

OOTO  1270 

lt60  F=n»TAlN(  1‘lSlZFt 
.I.l=i-ISI7F 

IF  (ft  lt70.118tl.inn 

1 1  70  no  160  1  =  7.6 

IE  (lAlTt  .£0.  IRt  ANK)  0070  1240 
OFClOE (lO.ll.IA(Il)  DATA  INI  J.IM-?) 

160  CONTINUE 
COTi  1240 

1180  CALL  RJUST<IA<2l> 

OFClOEln.  12.IAI?!)  1A  T  AIN  < JJl 
'  OOT n  1240 

1 1 90  CALI  PJUST(IA(2>) 

OECiOE  (ln.13.IAf3) )  nATAlNU.lt 
1740  }E  (KOUNT  .EO.  KOliNTD  0070  11280.1310)  ISO 
K0UmT1*KOUN7 
RPT  =E  ( IO'lTl  .75) 

0071  1280 

1060  WPItE  ( I0UT1 . 141 

IF  (I0UT7  .EO.  0)  GOTO  1130 
NPItE  (I0UT2.I5) 

I1UtT=I0uT? 

ISN=2 
00T1  1140 
1130  IMOtC=INOICC 
rfthRm 

1  format  1  / •  *  THE  nEFAlll.T  INPUT  OAlA  ARE*) 

2  EO«**lkT(l». *10. *=*•. A10.«*#) 

3  F(1R..AT(1X. A10. •=», 1101 

4  FoRcAT(lx.A10**=»,Gl6.6> 

5  FoR.-ATf///) 

6  FORiATI/.*  ENTEP  oATA.  start  in  COL.  BENEATH  START  OF  NAml* ) 

7  FoPmAT (BY .6A10I 

8  FOR-.AT  (8X) 

In  FOR‘.'AT(6A10) 

11  FORhAT(AIO) 

1?  FORmATMiO) 

13  FOR-A7IF10.0I 

14  F0RmAT(/.»  OATA  INPUT  CnMPLETE*) 

10  FIPuATf/.*  the  TNiUT  nATA  VALUES  are*./) 

16  FOR'.ATMX.f  TRY  AoAIN«> 

17  FORuATl/. IK. *  RE  AO  I  NO  OAT*  FoOM  ».I5> 

18  FOR»*T(|xtA10i*-«» 

27  FOPmAT  (RX  **NAME  VALUE . . 

24  F0Pm*T(1x.»,FILE».Ip.»  IS  EMPTY*) 

28  FOPxATIIX.*  WR0NO  DATA  TYPE-TRY  AGAIN*) 

END 


013370 

013330 

013340 

013350 

013360 

013370 

013380 

013300 

013400 

013410 

013470 

013430 

013440 

013450 

013460 

013470 

013480 

0134P0 

013500 

013510 

013570 

013530 

013540 

013550 

013560 

013570 

013580 

013500 

0 1 3600 

013610 

013615 

0 13670 

013630 

013640 

013650 

013660 

013670 

013680 

013600 

013700 

013710 

013770 

013730 

013740 

013750 

013760 

013770 

013780 

013700 

013800 

013810 

013820 

013830 

0 1 3840 

013850 

013860 

013870 

013880 

013800 

013000 

013910 

013920 

013930 

013940 

013950 


8.17  Subroutine  PRT 


015000 

015010 

015020 

015030 

015040 

015050 

615050 

015070 

015080 

015000 

015100 

015110 

615120 

615130 

015140 

015150. 

015160 

015170 

015180 

015190 

615200 

015205 

015210 

015220 

615230 

015240 

615250 

015260 

615270 

615280 

615290 

615300 


SIIRrO'JTTmE  PRT  ( -illE.unDE.  1 1 »  IT«MP.NP*MSK1P»NSKIP<RH0P1 » 

♦  0=loH0.VMIN.0EL/»'<1T.II.TR>T  •  T  16) 

DIMENSION  P(IOO)  .alJE(l)  .0(2) 

data  :tt/o/ 

IE  (ITT  .EO.  IT)  ROTO  100 
WR I TE ( I TS  « 1 )  Tfi.T 
on  >30  I-1.MP«M6KtP 
OOTn  (110.120)  MOnE 
1)0  R  ( I  >  *RHOPl ♦OELRhOa ( T - 1 ) 
roto  J  30 

120  R(Ii ■  VMIm«DELV»(I-1) 

130  CONTINUE 

ROIn  (170.180)  MOnE 
170  WRITEIIT6.2)  (RM).!  =  1.MP.HSK1P) 

OOTn  100 

180  HRItE(1T6,3)  (R(Tl.t=l.MP*«SKlB) 

1 pO  OOTn  (140.150)  MOnE 
140  EMCnOE(2P.4,D)  XlT 
ROTO  160 

150  EMCoOE(?n.s>n)  ii  ... 

160  IE  (MOO  ( !  t-1  .NSKIo)  .EO.  0)  WHITEUT6.6)  0. 

♦  (RUr ( J) .  1=1 .MP.mSpIO) 

ITT-IT 

10O0  RETURN  ,  , 

1  *  EORmAT ( / /*  TIME (SECONDS)*  *012.4*  TAU=  *612.4/ 

2  FOR"AT</*  INTENSITIES  EVALUATED  AT  '  RHn-PRIME»*/15X.5Gl3.s> > 

3  FOR“AT(/»  INTENSITIES  evaluated  AT  V=*/ (5X.5G1 3.5) ) 

4  EORmATI*  Xs  *613.5) 


The  Evaluation  of  ^(sjjO, t)  and  I^O,  v,t)  Used  in  the  IKIRKP  Option 


1.  INTRODUCTION 


Consider  the  circumstance  when  the  temperature  distribution  is  constant 
throughout  the  window  but  is  a  function  of  time  only,  viz,  w(t).  Then,  returning 
to  Eq.  (16),  Volume  I,  we  see  that: 


In  a  similar  fashion,  Eq.  (17),  Volume  1,  becomes 


Equation  (18),  Volume  I,  simplifies  to 


2.  EVALUATION  OF  l'(u.O.t) 


For  the  condition  v  =  0  and  u  arbitrary,  then  J  (0)=1  and  lim  J,(pv)/pv 

0  v—  0  * 

Equations  (25-27),  Volume  I,  reduce  to: 


Then,  from  Eq.  (23),  Volume  I 


Expressing  the  integral  in  terms  of  sin  and  cos,  we  find 


p  exp(-a  p  )sin(up  /2)  dp 


Thus,  we  get  the  final  result 


3.  EVALUATION  01  l'(0.v,t) 


Consider  when  u  =  0  and  v  is  arbitrary.  Then 


Inserting  these  functions  into  Eq.  (23),  Volume  I,  the  integral  terms  become: 


/oJo 


(pv)  exp  (-a2p2)dp  -A 


iv_1  /J  i 


(pv)  exp  (~»2p2)dp  |  2 


+  |  Ag  J  p  JQ(pv) exp(-o  p  ) dp  +A 


.''"'A 


?  2  .  i  2 

(pv)  exp(-«  p  )  dp  | 


Thus,  the  integrals  to  consider  are: 


1  1 
J  p  JQ(pv)  exp(-a2p2)  dp  ;  v  1  f  J^(pv)  exp  (-Q'2p2)  dp 
o  o 


Let  y  =  pv  and  obtain: 


rv  ,  / 

/  yJ0(y>  exp(-a2y2/v-2)  dy;  v  2  J  J^y)  exp  (-a 


2  2 ,  2,  , 
y  /v  )  dy  , 


In  order  to  perform  these  integrations,  consider  a  polynomial  approximation 
to  exp  (-a  y  /v  ).  On  p.  71  of  Abramowitz  and  Stegun,  1  various  approximations 
to  e"x  are  given,  valid  for  the  domain  0  Lx  SO,  693.  They  all  have  the  generic 
form:  e"x  =  l+a,x+anx  +a„xJ+ .  Since  a  y  /v  is  a  maximum  at  y  =  v  (where 

100  2 

p  =  l)  for  any  value  of  v,  we  get  the  condition  that  OSo1  SO.  693.  Using  the  poly¬ 
nomial  approximations  mentioned  above,  the  typical  n-th  term  from  each  of  the 
above  two  integrals  will  have  the  form: 


v2„v-(2„«>  jV»+lJo(yldy;  n  Ji<y)dy. 

o  o 


1  2 

On  p.  480  of  Abramowitz  and  Stegun1  or  p.  51  of  Luke,  we  find: 


„  . ,  f  0  2n+l  (2k+l)(-n), 

Ji  n  M-f  yn  J0(y)dy=  n+1  11,  (n+2)k  J2k+i(v) 

°  Jo  k=o  k 


1.  Abramowitz,  M. ,  and  Stegun,  I.  A.,  Editors  (1964)  Handbook  of  Mathematical 

Functions,  National  Bureau  of  Standards,  Washington,  D.  C. 

2.  Luke,  Y.  L.  (1962)  Integrals  of  Bessel  Functions,  McGraw-Hill  Co. ,  New 

York. 


P 


J2k+2(v) 
(n  =/=  0 ) 


/v  2n 

ynji<y)  dy=^ 

o 

and 

J  Jx(y)  dy  =  1  -  JQ(v) 

O 

where: 

(a)o  -  1 

(a)k  =  a-  (a+1)  •  (a+2)  . . .  (a+k-l> 

Since  (-n)k  =  0  for  k  =  n+1  and  (l-n)k  =  0  for  k  =  n.  the  series  terminates. 

The  above  results  have  been  coded  in  a  function  subroutine  JI  (i,  n)  which 
returns  J  2n+1  (v)  if  i  =  0  and  J.n  (v)  if  i  =  1.  It  uses  the  IBM  Scientific  Subroutine 

xo  lf 

BESJ  to  compute  the  J2k+1^  and  J2k+2^v  ' 


^  (2k+2)(l-n)k 


k=o 


(n+2), 


oooooooooooooo 


D.1  Modified  Mam  Program  TIKIRK 


oaor-RAM  Tt<IRK  (  TAr>E4=65 .TAPEB=65 . TAPF 3=513 . T APE 7=513.  T APf«=S13. 
♦tap~6=6S.0UTpUT=6s) 

C  THTS  opnGPAM  CAN  BEST  Rf  nFsCRlBFU  As  THE  1/0  INTERFACE  FOR  FUNCTION 
C  SUBROUTINE  TwIOK  WHICH  computes  THE  RlSKHoFF  INTENSITY  FUNCTION  as 
C  nESCRTHFD  IN  AFCRL-72-0S6S. 

C  ThF  tNOUt  falls  INTO  THOfE  CLASSES* 

C  ll  INPUT  HAVING  TO  00  •ITTH  PROPERTIES  OF  THE  WINDOW  MATEHlAi  AND 
C  THE  LASfR  Hfam.NamEI  Y'f  ioHANTITTFS  CoS  UN|  ESS  OTHERWISE  INDIfaTED) 


c 

9  in 

s-> 

V  > |_ME  OF  STG-1A  TN  GAUSbIAM  BEAM 

c 

i  ammo * 

=  > 

WAV/ELENGTH  Of  THF  LIGhI  ti^AM  Im  mjckuns 

c 

oW 

=  > 

total  BEAM  pavfp 

c 

o 

-> 

•aITMOOW  PAOTOr* 

c 

BETA 

-> 

BULK  ABSOcjnjTOM  CQtfFTCIEwT 

c 

K 

_> 

THfPMAL  cnMOnrTt'»i  1  V 

c 

MX 

=  > 

I'lOFX  OF  PpF» ACT T ON 

c 

Sio 

-> 

S  fUrt-1  «SI|D-r)HO 

c 

^  1 T 

-> 

S  *<I)o-tmFTA 

c 

-  > 

S  SHB-?»BI)o-DHn 

c 

S?T 

-> 

5  BIJB-2«BI|o-Thp;TA 

c 

T 

-> 

TTMF  AT  c'HTCH  TKTRK  IB  TO  HE  EvALUAJtD 

2|  input  HAWING  TO  00  WITH  Tht  EVALUATION  DOMAIN  OF  THE  FUNCTION 
IAIRr.N'MELYt 

KC  =>  oaiissIA  1  FOCAL  DISTANCE  (METE°S( 

XI  =>  MINIMUM  v-'/AI.UF  FOR  FUNCTION  EVALUATION  (MtTLRSl 
X5  =>  MAXIMUM  y-VAl.HF  FOR  FUNCTION  EVALUATION  (METERS) 
rhobI  =>  MINIMUM  RAOTIIS  VALUE  FOR  FUNCTION  EVALUATION 
PHOo?  =  maximum  RAOTIIS  VALUE  FOR  FUNCTION  EVALUATION 
mo  =>  NUMBER  Or  EVALUATION  POINTS  IN  THE  RADIAL  DIRECTION 
mo  =>  NUMBER  oe  EVALUATION  POINTS  IN  THE  AXIAL  (X)  DIRECTION 
Tim  =>  ARRAY  din  TO  lol  OF  1 1 MF  VALUE5  FOR  FUNCTION  EVALUATION 
(TIME  VALUES  SuDill.n  HE  IN  INCREASING  SEQUENCE) 

IIMTm  =  ■>  MINIMUM  u-VALUF  FOR  FUNCTION  EVALUATION  (SEE  MOnt) 

||MA»  =>  MAXIMUM  M-V*LUC  FOR  function  evaluation 
V M I u  =>  MINIMUM  v-vai,uc  fob  function  evaluation 

VMAv  =  >  MAXIMUM  V-VALUE  FOR  FUNCTION  EVALUATION! 

T)  tnjoUT  having  TO  oO  mITM  PWOGKAM  CONTpOL.NAMELY* 

ros.  =  >  EPROR  VAt  IFF  FOR  INTFKPOl.  AT  ION  OF  THE  TEMPERATURf 


C  FUNCTION  OUTPUTTED  BY  Tfmps  and  INTERPOLATED  BY  IBM  SCI.  SUB.  ALI . 

C  MIN’-  =  >  NUMBER  OF  tfmdeRATURf  FUNCTION  POINTS  TO  BE  USEn  IN 
C  THE  INTfRpOI  NTION  (DFFAUI  T=6> 

c  ioRmT  =  >  USED  To  rOMTPOL  DEBUG  OUTPUT  (1  CAUSES  DEBUG  OUTPUT) 

C  (5  CAUSES  WINDOW  TEMPERATURE  DISTRIBUTION  SUITABLE  FOR 

c  display  to  be  output) 

NGAuS  =  >  NUMBER  Of  FUNCTION  VALUES  FOP  GAUSSIAN  INTEGRATION 
MODF  =  >  IF  M0DF=1  THEN  THE  TNtEmSITY  FUNCTION  IS  EVA|_UATtl)  AT 
c-QUI-S°ACED  *  AND  Rh(1o-opTmf  VALLES!  IF  MoDE*2  IT  IS  EVALUATfU  AT 
EQuI-spnCEO  h  ANO  V  V»LUFS. 

I?  =>  IF  1  USf  tmIPm.  IF  2  USE  IK/RKP 

(NOTE  That  ikTPKP  SHOULD  ONLY  BE  USED  ON  THE  AXES 
FOR  CONSTANT  TEMPERA  I URF  WINDOW) 

ALL  The  ABOVF  MENTMNFD  oaTA  IS  OBTAINED  BY  TWO  CALLS  TO  THE 
INTERACTIVE  INPUT  SMRoOiitTNf  GtTOAT A  DESCRIBED  IN  PML  TM-I6.  IN  THE 
FIRST  CALL  AIL  OATA  In  THE  FIHST  CATEGORY  IS  OBTAINED.  IN  THf 
SFC0NO  CALL  ALL  DATA  iN  tHf  SECOND  AND  THIRD  CATEGORIES  ARE 
OBTAINED.  an  EXCEPTION  TO  THIS  IS  I?  (CONTROLS  USE  OF 
TKIRK  And  IKTPKP)  WHIrH  TS  oBIAImEO  on  the  FIRST  call  TO  GtToATA. 
for  A  I  1ST TnG  of  DFFxiii.t  INPOT  OATA  it  IS  RECOMMENDED  THAt 


030100 

6. >oiio 
OoOlPO 
030130 
0u0l40 
0*0150 
060160 
0  jO 1 70 
6;0180 
6,10190 
060200 
6.10210 
01,0220 
660230 
000240 
0JO2SO 
0u0260 
660270 
000280 
660290 
660300 
000310 
6v0320 
060330 
600340 
0O03S0 
0o0360 
000370 
660380 
0uO39O 
000400 
000410 
660420 
660430 
600440 
0U04S0 
000460 
000470 
600480 
OU04B0 
060500 
000510 
000520 
0v0530 
600540 
000550 
000560 
000570 
000580 
060590 
660600 
.000610 
&O0620 
000630 
600640 
060650 
OU0660 


C  TlKIRM  OE  RI|m  TNtERaCtI'<f(.y  under  INTERCOM  AFTER  GIVING  the  command  000670 
C  CONNECT (TAPE4, TAPES) .  000680 
C  THE  MAIM  OUTPUT  OF  TIwlRM  TS  A  SEUUEmCE  OE  UNFORMATTED  RECORnS  000690 
C  OF  INTENSITY  VALUES  WITH  CORRESPONDING  DOMAIN  VALUES.  EACH  RfCORD  000700 
C  CONSISTS  OF  THE  FOLl  Ow I  Nr,  SfQOENcE  Of  VALUES*  000710 
C  oECOPn  ,.|0.»  nIimBEPImPi  of  inTENST  I Y  VALUES  IN  THE  AXIAL  DIRECTION.  0U0720 

c  jxtal  coordinate  x  op  u.  time  vai ue  (t)  in  seconosi  number  (npi  000730 
C  OF  INTENSITY  VALUES  In  the  PAUIAL  direction,  minimum  radial  OU0740 
C  COORDINATE  PHOP1  OR  vmIn.  MAXIMUM  RAnlAL  COORDINATE  RH0P2  OR 

C  VMA  X .  MO  TNTFNSITY  VAl.UFS.  000760 
C  FOB  each  value  OF  T.  mP  OECOROS  are  OUTPUTTED  CORRESPONOINO  TO  THE  0U0770 
c  MP  X  FV xLUATT ON  POINTc.  THE  RECORO  NUMBER  RUNS  FROM  1  TO  NP  FOR  0U0780 
C  EACH  TImE  VA|  IIF.  000790 
c  there  ape  stx  files  associated  wiih  this  program  (not  including  file  Oooboo 

C  ^OUTPUT •  THE  FILES  nRr  REFERHEO  TO  IN  THE  PROGRAM  AND  ASSOCIATED  OUOBIO 
C  sUBRQUT  tNES  AS  IT3.TT4. TT5.IT6.it/. ITB.  ThE  FILE  VALUES  ARt  jN  TURN  660820 


C  ASSIGNED  to  the  usual  FORTRAN  (“TAPEN'A  BY  A  DATA  STATEMENT  ANn  PROGRAM  000830 


197 


t 


;,FS  ’ 


^JREQ|QIMJ  BLANK- Nt)T 


75 


8i) 


85 


9!) 


95 


100 


105 


110 


115 


120 


125 


130 


135 


140 


145 


150 


C  sTATFMF.mT  Sllr-H  THAT  Tt3  f  =  >  TAPF3.ETC.  THUS  TO  CHANGE  THE 
C  ASSOCIATION  TT  18  NECrS8APY  TO  CHANGF  EITHER  OR  BOTH  THE  DATA  AND 
C  PROGRAM  STATEMENTS. 

c  thfse  ftles  serve  the  following  purposes* 

C  IT3  =  •>  FIl  r  OUTPUTTED  BY  PROGPAM  TEHP5 

c  TT4  =  •>  'aiNTERACTIVE®  INPUT  ULE  (SEE  GETOATA) 

C  ITS  =  >  "AImtCRACTIVEm  O'lTPUT  Fll.t  <SEE  GFTDATA) 

C  TTS  =t  LISTING  OF  AIL  INPUT  PARAMETERS  AND  DEBUG  OUTPUT 

C  TT7  =>  UNFORMATTED  tNTFMSIT*  values.  ALSO  MAT  BE  USED  TO  INSERT 

C  jTR  =  ■>  UNFORMATTED  TEMPERATURE  DISTRIBUTION  VALUES 

C  SUITABLE  Fop  display  PURPOSES 

C  P REASSIGNED  DATA  IN  CATEGORIES  2  AND  3 

C  IN  ADDITION  tD  THE  ARoVF  FACTS.  THE  USER  SHOULD  BE  AWARE  UP  TWO 

_ _  _ _ _ rtnrT  iii.ltra  Ti_lC  uaJIAMI  F  K1AU(  KJT  K  T HI 


,n  Vf  roi  i  ji  i  '  'C.  '  i  JC.  rs  .  '  — 

c  program  '«constantsia.  thf  eirsi  under  the  variable  name  nt  is  ihe  num- 
c  R'-D  OF  TIME  values  pFuMTTTED.  at  present  this  is  set  TO  10i  (The 
C  nIMENSInN  OF  THE  TImf  ARRAY  TIM).  ALSO  NOTE  THAT  ALL  THE  TlMF 
c  n-FAIII  T  VALUFS  APE  7FoO  EXCEPT  THt  FIRST  and  THAT  THE  PROGrAm  STOPS 
C  aS  SOON  AS  A  SUCCEEDING  time  value  IS  LESS  Than  the  preceding 

C  the  SECOND  'OcONST antw  has  TO  UO  WITH  The  SIZE  of  the  record  OUTPUTTED 
c  by  TFmpr.  T uc  SUBROUTtNf  RTAPEJ  READS  THE  TEMPS  OUTPUT  UNDER  IHE 
C  ASSUMPTION  THAT  ALL  fflpAOTAL'a  ARRA  S  ARE  OF  DIMENSION  82  AND  (BAXIALW* 

C  ARRAYS  are  of  DIMENSION  ??. SEE  COMMENTS  WITHIN  SUBROUTINE  RTaPES. 

C  thf  TMTcNSUTV  FUNCTION  Tkjrk  is  DEFINED  explicitly  as  A  FUNCTION  OF 
C  THE  NONnIMENSIONAL  VARIABLES  U  AMU  V  AND  IMPLICITLY  AS  A  JUNCTION 
c  OF  NON-nlMEMRTONAL  TImF.  TAU  THROUGH  THE  TTME  DEPENDANT  FUNGIiONS 
C  phi-theta  AND  PHI-RhO  AF  DEFINED  IN  THE  ABOVE  REIERENCE.  THESE 
C  vArIABLfS  Aof  passed  through  an  argument  list,  all  ^parameters* 
c  required  fop  evaluation  of  ikirk  are  passed  through  block  common 
-  -  -  -  “SE  PARA  'EtEPS  are* 

C*S1P  (SEF  ikirk  comments) 

C*S2R  '• 

C»S1T 

C»S2T  " 

STARTING  ARGUMENT  for  FUNCTIONS  E1.F2  (SEE  FUNCTION 
PHI  COMMENTS! 

INTERVAL  between  LOUT-SPACED  ARGUMENTS  OF  F1.F2. 

NUMBER  OF  VA|  IIES  OF  Fl.F? 

><INT  (SEE  INPUT  DA  I  A! 

rPSl  " 

uolOS  values  OF  FI  FROM  TEMP5 

HOLDS  VALUES  OF  F2  FPOM  TEMP5 

STORES  pht*TMETA  (PHI-RHo  AND  PHI-THETA  ARE  EVALUATED 
SIMULTANEOUSLY) 

I/SQPT(2) /SIR  (= ALPHA  IN  THE  ABOVE  REFERENCE) 


c 

.PHIBLK. 

thf 

c 

CSIO 

-> 

c 

CS^o 

s> 

c 

CS10 

=  > 

c 

CS?T 

=  > 

c 

xs 

:  > 

c 

c 

nx 

=  > 

c 

Nf 

=  > 

c 

MNISJT 

=  > 

c 

FPO 

s  > 

c 

s  > 

c 

F2(?0M 

=  > 

c 

HOLD 

=  > 

c 

c 

* 

=  > 

c 

KE 

s> 

c 

TLAST 

s> 

c 

TNE  *T 

=  > 

c 

TE^o 

=> 

c 

c 

TP 

=  > 

c 

MPl 

=  > 

c 

IS* 

r> 

c 

X.J 

vau 

c 

NGAMSS 

=  > 

TIME  OR  OUT  OF  SEQUENCE  TIME) 


(INDICATES  OUT  OF  RANGE 


=  NF 


WITCH  FOR  GAUSSIAN  INTEGRATION.  WHEN  1SW*1  THEN  THE 


C  (NOTF  THAT  IS  nGAUSS  IP  CHUNUtu  min  i  —  — , r  — ~ 

C  SUBROUTINE  MUST  ALSO  BE  CHANGED.) 

C  N“1  =>  NUMBER  dF^TFmPERAIURF  SAMPLES  IN  AXIAL  DIRECTION 

C  (IISEn  FOR  OllTPUTTiNG  DISPLAY  COMPATIBLE 

C  tfmpFRATUpE  DATA) 

C  Cl  :>  CONSTANT  TO  OIMFNS10NALI7E  TEMPERATURE  OATA 

c  CI  =>  oONSTANTLuSFn  TO  DIMENSI0NALI7E  TIME  FOR 

RFA|  K« IK  IRK.LAMBoA.NX «KE 
RFA|.  IKIPKP.  IKIRK) 

LOGtCAL  S 
OImfNSION  HUF(lnO) 

C0Mn0N/TFILES/IT3.IT4.IT5.ITf>.IT7.IT8 

COMmON/phIRLK/CSIp.CS?R.CS1T .CS2T  t XS.OK.NF .MNNT.EPP.Fi (200) * 

HF7(  700). mold.  A. KF,  Tl.  AST. TNEXT.IERR.  IP. MP1.ISW, NGAUSS, 

♦RAD.NPi .C3.C1 « IERm.FPRORM 
INTEGER  OATAIN(10<).T)  .DATAINI  (100.3) 

CO“'ON/BLOCK2/XO.x1 .x2.RHDPI.RH0p2.MP.NP,T1M(I0) .EPsl 
C  ♦. MINT. lPRNT^NGAUS. MODE. UM1N. UMAX, VMIN.VMAX.DUM(20) .MSKIP.NSKIP 

i7,I2.13>Ia,IS«IK.II.m,N,MI,NI. ICNT  * IU» 1O.N0.NMX. iRUN. 

♦  ICArD.  I  PRINT,  IF>NCH.tTAP3,IT  Ar4,Rh01.Rh012«ZEDI.ZED12.DI*UO. 

♦  TAUhX.TAIIOFF.SIR  .00. UO •  EPS.Gl  (4)  »H1  (4)  ,MATER«NX«HEtA. 


000840 

600850 

000860 

000870 

000880 

033890 

600900 

636910 

630920 

636930 

000940 

660950 

000960 

000970 

600980 

000990 

601000 

001010 

001020 

OolOlO 

631040 

001050 

601060 

601070 

OolOBO 

001090 

ooiioo 

001110 

001120 

001130 

601140 

001150 

001160 

601170 

001180 

001190 

601200 

001210 

001220 

001230 

001240 
001250 
001260 
001270 
001280 
601290 
001300 
001310 
001320 
001330 
661340 
001350 
601360 
001370 
601380 
001390 
301400 
601410 
001420 
601430 
001440 
661450 
001460 
631470 
00 1480 
601490 
001500 
001510 
661520 
661530 
661540 
001550 
001560 
661570 
661580 
661590 
601600 
601610 
661620 
661630 
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v»s> ifj&l*** 


\ 


I 


l 


1S5 


1ft') 


16ft 


l  7  "* 


17ft 


180 


185 


19' 


19ft 


200 


205 


210 


215 


220 


22ft 


23u 


♦  <.L  AMBITA  .S1R.S1T.52b.S2T.  001600 

*n,rN.CP.i?,fXPER«PW.Pl  .71.R2.  Iet-OT.PROBMO»TICU»XLEN,TLEN,SCAL£X»  0O1650 

•'lOAi  EY1  .  =  raLFV2«  XTlTt.p  tVIt  fUEl  <S>  .YTITLE2  (SI  .NAME  56 1660 

EOI)tV4LFmCF  (Il.nnT#lN).(AU.nATAiNn  Oul670 

DATA  (II ATAINll.lt, 1^1.92 1/7*2 »80. 20 .3»1«0*1>2»11.100.A«6. 6.3.  001680 

♦  ,  V  .  ,-.5546.  l.|0ox..0032.ft.«5.  .  . 12q2»2*0.  ,  .001  .4*0  •  *0.  ,  3*.  015.  001690 

+  3HK  rL , l.'*7,4.8E-4,.ftftft3.1u.6.-.34E-S,.05E-5..l£-5«-.lt-S.1.9B;  001700 

*.ft9> .  1  .»=8, 1H1  ,P4.7.m.l  1«1,1.4H7204,.5,2U.  .9..30...1..1.  001710 

♦  l'|HTlME(5FC0N,3Ht)ft)  ,3*1H  .lOHIEMP-DEGC  »10H  ABOVE  AMB.  001720 

♦  3<tlH  .1»MMEAN  TFmb  ,  | OH  above  AM8.3MH  » 7MBARRETT *  601730 

♦  r'HftAOlAi  1)15.1  ■ihtAm(,.f.oMO-»4H(Cm)  .IH  .IH  .10HAXIAL  D1SI,  001740 

♦ITHiNCE.'-iCM.lHl.lM  .1m  /  001750 

DATA  (DATATNl 1 .7)  ,  Iri .9?)/2hi1.2hI2.?hI3.2N14.2HI5.  001760 

»pm[x  .PHI 7, 1HM*  IhN.PHuT .2HN1 .4filCn|T » 2H1 U . 2H1 0 . 2HN0 1 3MNMA.  0U1770 

<11|  ilj  j .ft j | C APD ,6Hf print .5M1PNCH. 5H I T AP3.5H1  T AP4 .4HRH01  *  661780 

♦  G-i«mO H7EHl.ftH7EniP.5HDTAHD.SHTADMx.6HT  AOOFF  .  3HS1G.  001790 

.PMiT-,7Min.3HFPS,ftMGI  111  ,5B01  12}  .5HG1  I'll  ,5HG1  <41  .5HH1  (11  »  60 1800 


•Whi  (?)  .  5HH1  (31  « GuH t  (41  .SHMATERIAL.8HpEF.IND.»4H8ETA, 

♦  ft-T  jE°.C'iW0.6HL')MftDA.3HftlH.3HftlT .  3HS2P.3HS21  , 

♦  7HnFMftirv.OMSPtC.MEAT.ftHRA0IUS»5HEXPER, 

.  TMD,.,Q  .  3HR  1 fc, 1H7  1  *  •  7Hk2«.9HPt  T?1Y.2N«6HPR6BN0,4HT1CU. 

*4M>t  £N,4uYLEN,7H«-5('ALf  .flHYl-ftCALE.8HY2-SCALE.6HXT  I TLt. 
♦1H7.1h3.|H4.  1H5.7hYtttL.fi,  1H2. 1H3.  lh'4,  IH5.7HYT I TLE2. 1M2. 

*14) . IH4. IHS.AHOMKRATIP. 

♦1h<t1.3hxT?.7HXi3.3mxt4,3HXTS»3HyT1.3hYT2»JHYT3.3HYT4. 

♦THYtS/ 

CAT  '  (CAT  A  TNI  I  •  1)  .  1  =  1  .97>/22«l).  1 9*1  .-1  ,11*1.-1.  1.4*0, 

♦-.I  «ft*l»?A*-l/ 

DA  T  a  ( 1)4  T  A  I  N  1  ( I  .  I )  ,  T  =  1  .481  / 1500.  .  1000.  ,2000.  ,0..2.«100tlfl0»10., 

♦  0*-i  .  ...VI  .6. 1 , 24, 2.-40.  •40.,  5.,  10.  i 

♦  1  '|Hp  IPKHiFF  1,1  iHilTftMftITY  f  .QHUNcTlON.  1 , IH  ,  1H  .10HTIHE  |N  SE, 
♦ftHCftNllft.  IH  ,1H  ■  1  m  .lOHNON-OIMENft.lOHTONAL  RADI.lOhAL  illftTANC. 
♦346.V.1H  .  lOMNON-nl'iFMft.lOHIONAL  AXIA.10HL  D I  STANCE • 2M.U. 1M  .5.5/ 

DATA  (OATAINI  (I.?t  .  T  =  1 .481  /2HX[I ,  ?HX  1  .  PHX2.5HRM0P1  .5HRH0P?  .2MMP. 

♦  ?h.\ji>,  2HT 1 .7HT2.pht3.pHT4.2HT5.2MT6.2Ht7.2HTb, 2HT9.3MT  10. 

♦  4MFI.51  .4HMINT  .5hIoPmt.5HN0AUS.4Hm0DE»4HUM1N.4HUMAX. 

♦  4HO  -lN.4Mi/MAX,3M5Tl  .3H5T2.JH5I3.7H5T4.3HST5, 3HPT1.3HPT2. 

♦  3H073.3HPT4.THPT5.3HxT1.3HXT2.3HxT3.3HXT4,JHxr5.3HTTl, 

♦  3h  Y  ▼  2  •  3w  Y  T  3 . 3HY  T  4 , 3hy  T  5  . SHMSk  JP.ftHNSKiP/ 

OAT.  (OATAInI  ( 1,3)  .  iri  .40I/5»1«2»O.11»I  ,4»0,4*l,20*-l  ,2*0/ 

OAT*  (T3.tT4,ITft.TTft.TT7.1T8/3.4.5,6.7.B/ 

HAT  A  IEdm.ERPORp/i',  lft-10/ 

|mi)tC*9 

TSMvi 
MT=.  0 

CAL.1  ■  r, ETC  AT  A  (OAT  A  (N,  02. 4, 5.6. 3.  loo,  300  .INL1IC) 

CALI.  GETOATA(OAtatN)  .48.4.5.6,7. 100.300 •  INU1C) 
tft  (MODF  .ME.  1)  ftOTO  IftO  ' 

0  AT  a  INI  f  07 , 1 )  =  1  OHoAny  Al.  015 
OAT  A  INK  TH.1)=1CIHtAmcE.OHO- 
OATaINI (39.1>=10HdRtmE  (CM) 

OATAINI (42. 1)=10HAXTAL  nlftT 
OAT  A  INI (43.1 )  =  lnH«NCft.X  (RE 
DaTaIn  1(44. 11  =  10 Hi  At t VE  TO 
OAT  A  INI  (45.1  |  =  |'iHf-.4MSft  FOCU 
OAT  A  INI (4ft, 1 1 =7Hft)  I CM) 

IftO  NRItE  ( 1 t 7 1  OATATm 
NPTtE  (TT7)  OAT  A  I'll 
(F  (MOOF  .EQ.  1)  5  =  .T. 

Rft.lNO  It3 

RFAMtTTl 

Tl_  AftT  =  TNc'XT  =  0  . 

Kft  =  ft.283l8E  4/LAmRoA 

fdo-EoSI 
IoztPRMT 
MGA*  lSS=MCAI  IS 
(5=-. 

n*=> ,/m 

MMMTSMIMT 
MO  1 — M* 1 
MFs  .P) 

IF  (S\  finTfl  120 
XM  A  v=VM A  X 
XM  T '  is  VM 1  t.l 
GriTn  147 
1 20  XMI'isPHOol 
XM4 (=PHOo2 
140  CONTINUE 
as. c/sir. 


001810 

001820 

001830 

001840 

001850 

001860 

601870 

601880 

601890 

001900 

001910 

661920 

001930 

001940 

661950 

001960 

001970 

001980 

661990 

002000 

0O2010 

6o2020 

662630 

662640 

002050 

002060 

002070 

0U20H0 

002090 

662100 

002110 

002120 

662130 

662140 

002150 

002160 

002170 

002180 

002190 

002200 

002210 

602220 

662230 

002240 

002250 

002260 

002270 

002280 

002290 

002300 

602310 

002320 

002330 

662340 

662350 

002360 

002370 

002380 

662390 

6u2400 

662410 

002420 

0U2430 
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-•  -lyxi-J-uik-tste- 


Mi.'ia.n.'te.-t.  .VW-Jt 


~.4lf^^.,.-  -■ 


.iMiSm 


C=R(..«(NX*lf?*-l>/2./NX 

C=C<iR*RFt4/3.I4I5c>/i' 

CSI=>=C»B|» 

CS?o=C»S>P 
CS 1 T-C*F  t  T 

cspt=c»spt 

9S9=RtR 
<  0 = x.  0  «•  I  r>  r. . 

Xl  =  «i»lft'>. 

7P=x2»  I  O'1. 

ClsF/RSQ/nFM/CP 

C)f|  *= (XP-X! ) /(AmAxO I 1 -MO-1 I ) 

QtrLoHO=(PBOF/,*R~*P°l  I  /  (  AmAXO  ( 1  ' MP- 1 )  ) 

0C(_ll=(  VMAX-VMlNt  /  f  AMAXO  (  1  »MP-1 )  1 
llFLn*(UMAX-UMINt  /(AMAXO)  I  «NP-1)  ) 

9AO=R 
H^1=N»1 
C3=rXR 
<'  t-l./X'l 
MOFrs  A 
IT  =  ’ 

T9=r=TlN(  I ) 

rr  (T  .i  t.  o. )  goto  pom 

TP ( lP.tn.P1  WRTTPlTTPt  DATAtN 
1000  T=T-.C1 

R5ITE  i  ITp.21  T 

ip  < T  .ot.  TAUmxi  Ggto  ?00u 

X1T=X1 

XT  t  =  l ,/XTT 

i  i=u  i in 

1)0  TOO  T=1*NP 

c«=  iX0*X  t  1 1««2 

fp  (SI  l|rKF»PSOo(XOt-Xl  T> 

pwO-^=PHno| 

V=V<IN 

00  >1)  .Jrl.MP 

jr  (SI  y=KF»P»XI  I»RH.-|0 

qiip  ( j)=rx*lKTRK  (U.i/.t) 

IP  7IFRR  .ME.  01  GOTO  ?C<0 y 
p I )  pHrn=PNno*DEI.WH'i 
0=V .OELk 
1IU  CONTINUE 

NPItE  (  I  T  71  !  .N-J,  i|»TQ«  mo, AMIN*  XMAX  ■  (R||F  (J)  |J=  1  .MP) 

CM. I  PRT  (RHF.MO'lE.  I  .  IT.W°»NP.»S<  ! P . NSK 1 K • RHOP 1  • 

♦  )F|.".’HO # I/'.’ TXUOEL V •  7 1 T  ,1  WTRt  T  •TIBI 
NOPr=NPFC*l 
X 1 T  tXI T ♦npl X 
XTl-l./xir 

n=u.oflm 

WO  CONTlNHP 
t  t=  r  t ♦  i 

TP  (IT  ,gT.  Nil  GnTO  2C0O 
Tj=t=T1m(TT) 

IF  (I  .OT.  TlRUT-l!)  GOTO  1000 
?000  XPIrElITG.il  NRF.C 

WRT  rF  ( ITF.M  IEpm.EopOPn 

1  P0R''AT(1X.*  the  NIIMPCP  OF  RECORDS _lS-»> 1 101 

2  FOR-ATU*.*  t‘E. W  VaL'ip  OF  •  ftD  lS».£13.St 

3  FpR  .AT  ( lx.  Ift.AE  I  2,4  I 

4  FOR  .AT  (  IX  .4E1  3. SI 

S  F-W,-'AT(lv*T6,46l?4.'l(/»5X,8Gi3.S>) 

ft  For /AT ( *  MAX  ERROP  3APm=  »14i>  EST  ABS,  ERROk  INTEG.-  tlft. 

End 


U 02440 
602450 
6‘-2460 
6;;2470 
0..24R0 
0o2490 
002500 
6u2510 
002520 
0J253O 
002540 
002550 
00-2560 
0O2570 
6-12580 
002590 
0(12600 
0.12610 
002620 
002630 
002640 
002650 
0  02660 
0J2670 
0  .‘2680 
002690 
002700 
002710 
0u27?0 
0  i27  30 
6.(2740 
0 02745 
002750 
002760 
Oo2770 
002780 
0J2790 
012800 
602810 
O>.'2rt20 
6 (2830 
0o2840 
002850 
6  (.-2860 
0o2870 
0o23RU 
002390 
6(02900 
002910 
0o2920 
0-.2930 
0-o2940 
6i-'2950 
6 i29ft0 
6-2970 
6.2980 
6 i2990 
60.3000 
6  o30 1 0 
003020 
6.13030 
6.3040 
6o3050 


D.2  Major  Function  IKIRK  Pertaining  to  Option  No.  3  (IKIRK1) 


10 


15 


20 


25 


30 


Rcfti  FUnrTION'  I<IoK  (U.V.T) 

COM-, ON/phIRLK/CSIr.C^h. CSIT.LSZT.XS.RZ.NF.MINT.EPS.FI  <2ni)>  - 

♦F?(20n)  .mOLD.A.X.TLAST.TNEXT.IERp.  IP.MPl*  I5W.N. 
♦Ran,NPl.<~3.CI  •IFOM.FOPOPM 
COmuON/I|u/II1«V1 

EXJrRNAL  FREALI  .FtMAOI  ,FREAL?«FluAG2 

DATS  AEPo.RERR/lE-3. IE-6/ 

lll=H 

Ul=l| 

42=«*A 

IF  (A2  .GT.  220.)  1A’0.1030 
in-20  C0NsT*2.»A2*»2 
goto  1040 

1  n  30  C0NfT=2.»(A2/(1.-fXp  (-42)  >><**<! 

1040  CAl.i  KTAoE3<T) 

•IF  I IERR  .ME.  0)  GOTO  ?000 

Y01-OCAr>BE  (FrEALI  .0.  .1 . . aERR.hERp.ERRrR* IER) 

IF  (ERROR  .GT.  fopOrm)  ERHORM=ERsOR 
[F  t  IER  .GT.  IERMt  iFPMiltR 

VlIrOrAnoE (FI MAGI .0. . 1 . .AENR.KERR. ERROR.  IER) 

IF  (ERROR  .GT.  FPpQPm)  FRHORu-ERPOR 
IF  (IEP  ,GT.  1EPM(  tfpm=IlR 

?RI=QCA09E (FPEAl  2.0. . 1 .  .AENR. HERR .ERROR. IER) 

IF  (EPPOo  .GT.  froORm)  FRHORm=ERrOR 
IF  (IER  .GT.  lER'M  f FRMsltR 

7TT=0CA0OF(FIMAG2.0. .1 . . AERR. HERR* ERROR* IER) 

IF  (ERROR  .GT.  ERPORM)  fRHORm=ERpOR 
IF  (IER  .GT.  IEr-M)  tfRM  =  IER 

(* IdK=CONST*  (  YRI«YRT.y  n«TU*ERI«ZRI*7l  1*211 ) 

2n00  RFToRM 

END 


D.3  Function  FREALI 


10 


15 


20 


25 


100 


no 


FIJNoTTON  FREALI  (X> 

COMi/0N/l)H/II.V 

COM'.ON/PPTRLK/CSlP.CSPR.CSlT.LSBT.XS.nZ.NF  >mINT.EP5*F1(20O)* 
♦  f  ?  ( ?00 )  .MOLD*  A.  •'  .tLAsT  .  TNtXT •  1ER°*  IP.MPl  •  ISW.N. 

♦RA0.NR1 ,03. Cl , IFRM.FPPOPM 
complex  ol.EXPR.ExPT.FX. FT, FT. FW 
RFA|  JO,  II. K 
A?=f»A 
I  ,IO?=. 5*11 
ISW=1 
GOTO  100 
f^TpY  F t mAG4 
1 5R=Z 
•GOT  o  100 
f\ITrY  FRFAL2 
ISw  =  3 
GOTO  100 
entry  F  JMAG2 
I  >=w=r» 

X?=x*X 
X\/  =  «*V 

FR=  =  XP(-a2»X2)*CExP  (CMPLX  <0E0»-lln2*XHl  > 

EXor*CEXd(CMPLX  (0c'0.k,°hI  <A)  1 ) 

FXOT=CEXP(CMPLX(0=’0.K'»HnLU) ) 

IF  (V  .EO.  o.)  F2=(fxpR-EXPT)*X/2. 

IF  (V  .np.  0.)  FZ=(FXPR-EXPT)*J1  (XV)  /\l 
01  =  x*  lOCXO) 

goto  (Iio.i2o.no, 140)  ism 
fx=o1»Expp-FZ 


014800 

014810 

014820 

614830 

014835 

014840 

014850 

014852 

014854 

014860 

014870 

014880 

614890 

014900 

014910 

014920 

014930 

014940 

014950 

014960 

014970 

014980 

014990 

0 15000 

015010 

015020 

015030 

015040 

615050 

015060 

015070 


015080 

015090 

015100 

015110 

615120 

015130 

015140 

615150 

015152 

015154 

015156 

015158 

015160 

615162 

015164 

015170 

015172 

015174 

615180 

015182 

015184 

615190 

615200 

015210 

615220 

615230 

615240 

015242 

615250 


201 


E9FALi-MFAL(EW«FXl 

015255 

RFTllRN 

015257 

1?0 

FX=nl»EXPP-FZ 

01S260 

~ 

epeiL1=aimag(Fw»et) 

015270 

return 

015280 

no 

Fy=ol »EX°T  *EZ 

615300 

FR£ALl=RFAL(EW«Fy) 

015310 

rftiiRn 

615320 

140 

Ey=o1*Ex°T.E2 

015340 

EREaL1=AtMAG(FW»EY) 

015350 

RETURN 

015390 

END 

615400 

D.4  Function  DCADRE 


FUNCTION  DCAQPE  (f. A .R.AERP.REpR.ERPOR, 1ER) 


C-OCADRE- 

C 


-LIBRARY  3- 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c- 

c 

c 


function 
I  IS  A  be 

PARAMrTERS 


DCADRE 
F 


A.B 

AERR 

RERR 

ERROR 


PRECISION 
REOD.  IMSL 

language 


.  INTEGRATE  F < X >  From  a  to  b.  using  cautious 

ADAPT IVE  ROMBERG  EXTRAPOLATION. 

-  FUNCTION  UCADRE  (F.A.B.AERR.RERR.ERRnR.  IER) 

.  ESTIMATE  UF  the  INTEGRAL  OF  FIX!  FkOh  a  to  b. 

-  A  SINGLE-ARGUMENT  REAL  FUNCTION  SUBPP06RAM 
SIIPPLIEU  By  THE  USER.  F  MUST  Be  UfCLARED 

external  in  the  calling  program. 

-  THE  TWO  FNOPolNTS  OF  THE  INTERVAL  OF 
INTEGRATION.  (INPUT) 

-  DESTRtU  absolute  FRROR  IN  THE  ANSWER,  (INPUT) 

-  DESIRED  RELATIVE  FRROR  IN  THE  ANSWER.  (INPUT) 

-  fSTTMATEO  BOUND  ON  the  ABSOLUTE  ERROp  OF 
THE  OUTPUT  NUMBER*  DCADRE. 

IER  .  EPPOR  PARAMETER 

NARnING  EHRORIWITH  FIX)  »  64  »  N 

N  *  1  IMPLIES  That  one  OR  MORE  SINGULARITIES 
MERE  SUCCESSFULLY  HANDLED. 

N  IMPLIES  THAT.  IN  SOME  SUBINTfRVAL (SI . 
the  ESTIMATE  OF  THE  integral  WAS  ACCEPTED 
merely  becausf  the  estimated  error  was 
smali  .  even  though  no  regular  behavior 

HAS  RECOGNIZED.  I 

TERMINAL  error  *  l2B  ♦  N 

N  =•  3  --  FAILURF  DUE  TO  INSUFFICIENT 
INTERNAL  WORKING  STORAGE. 

n  *  <.  —  failure,  this  may  be  due  ro  too 

MUCH  NOISE  IN  tME  FUNCTION  (RELATIVE 
TO  THE  GIVEN  FRROR  REQUIREMENTS)  UR 
DUE  TO  AN  ILL-BEHAVED  INTEGRAND. 

N  *  5  INDICATES  THAT  RERR  IS  GR'-ATfR  THAN 
0.1.  OR  RERR  IS  LESS  THAN  0.0.  Op  RERR 
IS  TOO  SMALL  FOR  THE  PRECISION  Of  THE 
MACHINE. 

-  single 

ROUTINES  -  IIERtST 

-  FORTRAN 


LATEST  REVISION 

DIMENSION 
OTMFNSION 
OIMFNSION 
LOG T CAL 

peal 

DATA 

l 

DATA 


DATA 


ALG',02  =  ALOGIO  (TWO) 
CAOpE  =  7ERO 
EPRoR  =  7ER0 


-  SEPTEMBER  17.  197a 

T(10.IO).R(|0).AIT(10),OIE(10)  ,RN(4)  ,tS<2049> 

tbegs(3o)  .beSinoo)  .Finis  (30)  ,est<30) 

REGLSV(30i 

HPCONV.AITKEN,  RIGHT.  REGLAR.REGLSV 

lfngth.jumptl 

ATTLOW.H2TOL.AITTOL.  JUMPTL.MAXTS.MAXTbL.MXSTGE 
/1.1..1S.,!,. 01. 2049 .10.30/ 
RN(1).MN(2),Rn(3).RN(aI/ 

.7142005.  .396x282.  ,843751. .1263305/ 

7ERO.pl.  Hale.  ONE.  Tw0.E0UR.F0URP5.TfN.hUN 
/6. 0.0*1. 0*5. 1.0. 2. 0.4. 0,4. 5, 10. 0.100.0/ 


015450 

015460 

615470 

615480 

015490 

015500 

015510 

015520 

615530 

615540 

615550 

015560 

015570 

615580 

015590 

615600 

615610 

015620 

015630 

015640 

015650 

015660 

‘015670 

615680 

015690 

015700 

015710 

015720 

015730 

615740 

615750 

015760 

015770 

015780 

015790 

615800 

015810 

015820 

615830 

015840 

615850 

015860 

615870 

615880 

615890 

015900 

015910 

015920 

015930 

615940 

015950 

015960 

615970 

615980 

615990 

616000 

616610 


. r;’-Tr : -  ,TT.,r-rC,  i '. 


GET  PRELIMINARY  VALUE  FOR  »vlNT» 

from  last  trapezoid  sum  awu  update 
ThE  error  requirement  ‘ERgOAL* 

FOR  THtS  subinterval. 

IT  =  1 

VINT  •=  STEp*T (L •  1 1 
TAHtLM  =  TABS»TFN 

FNStZE  =  AMAXl<FN5l7F.4BS(T<L*l>>> 
fori  =  arTEP»FNST7E»tFN 

RDOnAI  =  STAOE»AM4Xl i ERR A •tRRR*ARS (CUrEST * V INT) ) 

COMPLETE  ROW  L  AND  COLUMN  L  UF  *T* 
ARRAY. 

FFXtRp  =  ONE 
00  tS  I  =  i .LM1 

c*E  X  Top  =  FEXTRP«Fo!IR 

-  <  X .  L  Y  =  TIL. It  -  T<L-l*It 

t(L.I.I)  =  TIL. It  ♦  Tll.Lt/tFFXTRP-ONE) 

35  CONTINUE 


F.RRrR  = 'ttSTEP«AGS (T 1 1 <L> > 


IF  iL  .c,t.  2)  GO  tO  40 

IF  (TABS*P1»4HS(T(1.P>)  .to.  1A8S)  GO  TO  135 
GO  TO  15 


PRELIMINARY  DECISION  PROCEDURE 
IF  L  =2  ANU  TI2.lt  =  Tix.l). 
GO  TO  )35  TO  FOLLOW  UP  THF 
IMPRESSION  THAT  INTERGRANn  IS 

straight  line. 


CACllLATE  NEXT  RATIOS  FOR 

COLUMNS  . . L-2  OF  T-TARLE 

ratio  is  set  to  zero  if  difference 
In  last  two  ENTRIES  OF  C0|  UMN  IS 
AROUT  zero 


90  on  45  1=0. LM1 
nIFF  =  7ER0 

rF  <TA0TLM.AHS<T(T-l.U>.Nt.T4BTLM)  DIFF  =  T  1 1-1  »LMl) /T  1 1-l  .L) 
Tll-l. I.M1)  =  OlFF 
45  C0NTINUF 

IF  (AHSimtlR-TII.LMl)}  .LE.  >  ETOt. )  GO  TO  60 
IF  iTU.IMl)  .Eo.  ZFDO)  GO  TO  55 
IF  (ARSITWO-ABS(T(I.LMI)t*  -L I  .  IUMPT|>  GO  TO  130 

IF  (L  .po.  3)  Gn  TO  15 

TFC(ARS<<T<l.LMn-T(t.L-2>>/TIl»LMl>>  .LE.  AITTOL)  GO  TO  75 

50  IF  (RE6L1P)  GO  TO  55 

5c;  If  iERRFo'.GT.  fpgOAL  .ANU.  IERGL’ERRFR*  "NE.  ERGL)  GO  To  1T5 

r’n  T°  UC  CAUTIOUS  ROMBtRG  EXTRAPOLATION 

60  IF  f H2C0MV)  GO  TO  65 
AIT^EN  =  .FAt.SE. 

HTCnNV  =  .TRUE. 

65  FFXtRp  =  FOUR 
70  IT  =  IT  ♦  I 

VTNT  *  STFP»T<L.TT) 

fppcR  =  aRSISTEp  /  fFFXTPP-ONEt  *T(lT-l.t.)  t 

IF  (EPREo  .LF.  ERgOal)  GO  TO  160 

IF  iErGl *FPRER  .En.  FPGl)  Go  TO  160 

IF  t IT  .50.  LMlt  GO  TO  125 

IF  iT(IT.LMl)  .5Q.  7FR0)  GO  TO  TO 

IF  r T  I  IT. I  Ml )  .LE.  FFXTRP)  GO  TO  125 

IF  ( AHSIT (I T.LM1 ) /FnMR-FEXTRP) /FEXTRP  .LT.  AITTOL) 

1  FFXTRP  =  FrXTPP*FOUR 

nn  T°  lr>  intfgrano  MAY  HAVE  X»»ALPMA  type 

SINGULARITY 

RFSULTlNG  in  a  ratio  of  -SING*  = 

2«»(ALpHA  ♦  1) 

75  IF  iTU.LMI)  .LT.  AtTLOW)  GO  10  175 
TF  i  A I TKFN)  GO  TO  »" 

HPCpNV  =  .false. 

ATT-EN  =  .TRUE. 

89  FFXTRP  =  T'(L-H*Lm1  ) 

IF  (FFXT°P  .GT.  F0URO5)  GO  TO  65 
IF  (FFXTRP  .LT.  AtTLOW)  GO  TO  175 

IF  (AHSIFFXTPP-T  <L“3*LmI) 1/T I I.LM1)  .GT.  H2TUL)  GO  TO  *75 
SING  =  FFXTRP 

FFXtMI  =  ONE/ (FFXtRp  -  nNt) 

AIT  f i )  =  7FR0 


016760 

016770 

016780 

016790 

016800 

016810 

016820 

016830 

016840 

016850 

016860 

016870 

016880 

016890 

016900 

016910 

016920 

016930 

016940 

016950 

016960 

016970 

0169B0 

016990 

017000 

017010 

017020 

017030 

017040 

617050 

617060 

017070 

017080 

017090 

017100 

017110 

017120 

617130 

617140 

017150 

017160 

017170 

617180 

017190 

017200 

017210 

017220 

617230 

617240 

617250 

017260 

017270 

017280 

017290 

017300 

617310 

617320 

017330 

017340 

017350 

017360 

617370 

617380 

617390 

017400' 

617410 

017420 

017430 

017440 

617450 

017460 

617470 

617480 

617490 

017500 

017510 

017520 

017530 


204 


nn  as  i=r.l 

1>.IT<H  =  TU.lt  ♦  <T(I*1)-I<I-1.1>>  *FEXTMl 
K(  I )  -  T(1 .1-1) 

■lIHIl  =  A  IT  I T  >  -  A  IT  <  i-1  > 

CONTINUE 

IT  =  2 

VINT  =  STFP*AIT(L1 
FPPrR  =  FPPER*FE*TMt 

If  ,ERPFP  .GT.  F°(-,0«L  .AND.  <tRGL*ERRFR>  .NE*  ERGL)  GO  Tn  95 
AI.PjA  =  ALOGIOISImG)  /ALG402  -  ONE 
Tfr  =  MAX'HIER.sSt 
GO  <-0  160 

IT  =  IT  .  1 

IF  i  IT  .CO.  LMl)  GO  TO  126 
IF  (IT  .GT.  3»  GO  TO  IOC 
HPNjrXT  =  FOUP 

stngnx  =  singling 

IF  (H2NFXT  .LT.  STNGMX)  GO  TO  1  OS 
FfktRD  =  GINGNX 
STNGNX  =  SINGNX.STNGWX 
GO  T0  ltA 
ffxtRP  =  H2NEXT 
H2NFXT  =  Fr)UP»HBNFXT 
00  US  I  =  T  T .LMl 
=  7£R0 

rF  (tARTLm*A'1S  (0IF(  1*1) )  .NE.  TABTLM)  R I X *  1 )  =  OIFI  I)  /UIF  (1*1) 

I  CONTINUE 

SATfEX  =  -H2T0L»FcXTOP 

IF  (R (LI  -  FFXTPP  .LT.  H2IKEX)  GO  TO  125 
[F  »R(L-1 l-FEXTPP  .1  T.  H2TKEX)  GO  TO  125 
fuocR  =  5STEP»ArtS (OIF(L) ) 

Ff<tri  =  OME/IFFXtRo  -  nNt) 

00  '20  I  =  IT.l. 

x I T ( T 1  =  AIT ( 1 1  *  OIF<I)»FtXT«l 
lIF(T)  =  AITIIl  -  AtT(l-l) 

I  CONtIMUF 

GO  T0  SO 

CURRENT  tRAPEXOIO  sum  ano  rfsulting 
ExTRApoLATEU  VALUES  Uiu  NnT  GIVE 

a  small  enough  "ERRER*. 

note  —  having  PREVER  .LT.  ERRER 

IS  AN  almost  certain  sign  of 

BFGINNING  TROUBLE  KITH  IN  THE  FUNC¬ 
TION  VALUES.  HENCE.  A  WATCH  FOR. 

AMD  CONTROL  UF.  NOISE  SMOiiLU 
BfGIN  here. 

;  ffxtRP  =  AMAX 1 ( PRfV rra /ERRER. a  l TLOW) 
poEwER  =  ERRER 
IF  (L  .LT.  5)  GO  TO  IS 

IF  (L-IT  .GT.  2  .ANO.  TGTAGE  .LT.  MXStGEI  GO  TO  170 
foRfT  =  fppep/ (FEtT°p** f MAXTRL-L > ) 

IF  (EORFT  .GT.  FRr.OAI.  .AND.  (tRGL*ERRFT)  .NE.  EPGL)  GO  To  170 


(f  ,epdFO  .GT.  f pr0A(  .ANU. 

OIFf  =  ARS(T(1.I.M»(FN*FN) 
GO  .0  161 


INTEGRAND  has  JUMP  (SEE  NGTfS) 
(ERGL*ERRfR)  .NE.  EPGL)  GO  To  170 
NOTf  THAT  2*FIj  *  2*»L 


1NTFGRAN0  IS  STRAIGHT  LINt 

TEST  THIS  ASSUMPTION  BY"  COMPARING 
The  VA|  UE  OF  THE  INTEGRAND  AT 
FOUR  «PANDOMLY  CHOSEN*  POjNTS  WITH 
THE  VA|  UE  OF  THE  STRAIGHT  LINE 

interpolating  the  integramu  at  the 

TWO  ENG  POINTS  OF  THE  SUB. INTERVAL. 
IF  TEST  IS  PASSED.  ACCEPT  «VINT* 

slope  =  (FFN0-FhEg1*TW0 
fsEg2  =  fhEG.FBfG 
00  .4!)  1=1.4 

.IFF  =  aHS(F(HfG.PN(I1«STEP)  -  FBEG2-RNU)  "SLOPE) 
rF  (TlRTLM.OIFF  .ME.  TABTLM)  GO  TO  155 
CONTINUE 
GO  TO  16" 

NOISE  MAY  BE  DOMINANT  FEATUpt 

ESTIMATE  NOISE  LEVEL  BY  COMPARING 
THE  VAI  UE  OK  THE  INTEGKANn  AT 


017540 
017550 
017560 
017570 
017580 
017590 
017600 
017610 
017620 
017630 
017640 
017650 
017660 
017670 
017680 
017690 
017700 
017710 
017720 
017730 
017740 
017750 
017760 
017770 
017780 
017790 
0 1 7800 
017810 
017820 
017830 
017840 
017850 
017860 
017870 
017880 
017890 
017900 
017910 
017920 
017930 
017940 
017950 
017960 
017970 
017980 
017990 
0 1 8000 
018010 
018620 
018030 
018040 
018050 
0 1 8060 
018070 
018080 
018090 
518100 
618110 
018120 
018130 
018140 
018150 
018160 
018170 
018180 
018190 
0)8200 
018210 
018220 
018230 
018240 
018250 
018260 
018270 
018280 
018290 


290 


29=5 


301) 


30s 


31 


31=3 


32'! 


329 


331. 


33S 


34(1 


349 


35r, 


355 


36 1 


C 

C 

C 

C 

c 


FOUR  »bANDOHLY  chosen*  points  with 
ThE  VA|  u£  of  THE  STRAIGHT  line 
INTERPOLATING  THE  INTEGRAmU  at  THE 
Two  ENnPOlNIS.  IF  SMALL  ENOUGH. 
ACCEPT  *V I  NT  * 

|45  si  obE  =  (FFNIO-FhEgI'TWO 
fqf<«2  =  fpfG*FHfG 

I5-)  '  T P f  '  =  «49(FtBEG*oN(T>*STfcMI  -  Fn£G2-RN<I)*SLOPE> 

,9^  cijd-R  =  IMAX1(EPPFR.ASTFP*01FF) 

IF  (EPRfb  .GT.  Pr.OAl  .»NL>i 
I  =  I  ♦  I 

IF  fl  .I.F.  41  GO  TO  ISA 
IFR  =  66 


(tHGl.*ERPFR>  .Nfc.  EPGL)  GO  To  175 


INTERGRATlON  OVER  CURRENT  SlIB- 
IhTERVAL  successful 
ADO  »VTNT*  TO  *OCAORt*  AND  *ERRER* 
TO  *ERpOR**  THEN  SET  UR  NfaT  SUB- 
IMTERVALt  IF  ANY. 


1  65 


CAflnE  =  CADRE  ♦  VINT 
FoJnR  =  c DPQP  ♦  FoRFO 
IF  .RIGHT)  GO  TO  1 65 
I ST«.GE  =  1  STAGE  -  1 
IF  USTagf  .FO.  01  GO  TO  220 
SFfii  AR  =  PFGLSV  UsTagF) 
off,  =  HFOIM  (1ST  AGF) 

FMH  =  F I  - 1 T  S I JSTAGF) 

Cmo-.‘ST  =  CHRFST  -  fst  1 1  STAGE*  1 )  *  VINT 
IFNo  =  I‘lFG  -  1 
FFN-.  =  TS(IENO) 

JJFG  =  f  oFGS ( 1ST  AgE 1 
GO  T-0  1H 

CHPoST  =  CUUEST  VIUT 
stage  ~  STAGE*STAGE 

|PKt-T  =  flFfi 

j*rr-  =  TMFr,S<lSTAr,e) 
cr-.|n  *  rtrr, 

v^irr,  =  HFnfN<  fST^'^c) 

PC tyn  s  F‘3FG 
CQFri;  •= 

no  tQ  “1 


INTFGRATTON  OVER  CURRENT  SUrINTERVAL 
IS  UNSUCCESSFUL.  MARK  sUBtNTERVAL 
FOR  FURTHER  SUBDIVISION.  SlT  UP 
NEXT  SUBINTtRVAL. 


1  7  0 

175 


IB'T 


I  HR 


1  9.1 


1  9S 


RFGl  AR  -  .TRUE. 

IF  .  1ST  AGE  .EQ.  MV5TGEI  GO  Tn  205 
IF  .RIGHtI  GO  Tn  IBS 
OFGl  SV(ISTAGF*I>  =  dfgLAR 
SFG.NI1STAGE1  =  BfG 
tacr.SI  ISTSGE1  =  IaEG 

STAGE  =  STAGE*HA|.r 

RTGrT  =  .TRUE. 

9FG  =  (rfg  +  ENO)  ..half 

I  HE  g  =  I  TREG*IEhir>1  /2 
TS(tHfG)  =  TS( IHFg» ’HALF 
fhF.g  =  TSIT9FG) 

GO  tO  1 0 

N'lL-FT  =  IBEG  -  laEGSITSTAGEI 

if  .  IF.NO.NNLF.FT  .gE.  mAXTST  go  TO  200 

tTt  =  IRCGSIISTAGD 

II  r  IEMD 

or.  >9o  i  =  III.1BEG 
tI  =  IT  ♦  1 
TSUI)  =  TSII) 
con-'Ini'F 

On  >95  T-I9EG.IT 
tSUTII  =  TSUi 
'II  =  III  •  > 

CONTINUE 
jrr.n  =  icon  ♦  1 
IuFg  =  TfNO  -  N-ILfF t 
ffmm  =  FAFf. 

F  -IF  G  =  TSUHFG) 
fimiS(ISTAGE)  =  F.'iO 

FmO  =  BFG 

HEG  =  HFGIHUSTAGF) 

HFGtNIISTAGEI  =  E"'0 
OFf,i  SV(IgTAGE)  =  PEG)  AP 


0 1 0  300 
010310 
01B320 
010330 
010340 
018350 
018360 
018370 
018380 
018390 
018400 
018410 
018420 
018430 
018440 
018450 
018460 
018470 
618480 
018490 
018500 
016510 
018520 
013530 
018540 
018550 
018560 
018570 
018580 
010590 
018600 
018610 
018620 
01B630 
013640 
018650 
018660 
018670 
013680 
0 1 8690 
010700 
018710 
018720 
018730 
018740 
018750 
018760 
013770 
018780 
018790 
018800 
018810 
018820 
0 1 0030 
0 1 8840 
018850 
018860 
018870 
018880 
O188V0 
018900 
018910 
0 1 8920 
018930 
018940 
014950 
013960 
018970 
018980 
018990 
O19000 
019010 
019020 
019030 
019040 
019050 
0 19060 
019070 
019080 


1  H  1: 


206 


019090 

0191OO 

019110 

019120 

019130 

019140 

019150 

019160 

019170 

019180 

019190 

019200 

019210 

019220 

019230 

019240 

019250 

019260 


1ST  AGE  =  ISTAGE  ♦  1 
PEG I  AO  =  RFGLSVIISTAGF) 

EST  f ISTaGE)  =  VINT 

CmrcST  =  Cl  WEST  ♦  ESTHSTAGE) 

Gn  90  5 


FAILURE  TO  HANDLE  GIVEN  INTEGRA' 
TTON  PoOBLEM 


’00  1^9  *  111 
GO  rO  21^ 

509  TOS)  =  11? 

GO  tO  2 It 

3 1 0  IEP  =  13T 
?15  CAOoE  =  PUREST  »  w!«T 
?2a  OCA  iRE  =  CADRE 
9-’00  CONTINUE 

IF  t  Ic R  .NE.  0)  CaLI.  HERTS!  I1ER.6HDCADRE) 
p-'OS  return 


D.S  Subroutine  UERTST 


019270 

019260 

019290 

019300 

019310 

019320 

019330 

019340 

019350 

019360 

019370 

019360 

019390 

019400 

019410 

019420 

019430 

019440 

019450 

019460 

019470 

019480 

019490 

019500 

019510 

019520 

019530 

019540 

019550 

019560 

019570 

019580 

019590 

019600 

019610 

0 19620 

019630 

019640 

019650 

019660 

019670 

019680 

019690 

019700 

019710 

019720 

019730 

019740 

019750 

01979  3 


S'lH'-'OHTTMF  UEPTST  (Tfo.nAME) 


c-mertst 


FOPOfi  MESSAGE  GENERATION 
PALL  OEHTST  H£R*NaME) 
ropnR  PARAMETER,  tVPE  ♦  N  WHERE 
TYPt=-  128  IMPLIES  TERMINAL  ERROR 

64  IMPLIES  WARNING  WITH  FIX 
32  IMPLIES  WARNING 

M  a  ERROR  CODE  RELEVANT  TO  CALLING  ROUTINE 
INPUT  SCALAR  CONTAINING  THE  NAME  OK  thE 

calling  routine  as  a  6-character  literal 
string, 
eoptran 


FUNCTION 

USAGE 

PARAMETERS 


AUGUST  I.  1973 


TTYP(2»4)  .  1 8 1 T ( 4 ! 
i.iaon.WAKF.  1ERm*PRInTR 

(  TPITI 1)  ,wf»RN)  •  ( I  BIT  <21  •  WARE)  •  ( I  hi  I  T  (3)  <TERM) 
/ 1  OHWAHN! NO  »10H  • 

IOHWAHNImGIWI.IOHtH  FIX)  . 

1  (ImtERMIMAL  •  i  or  • 

lOHMON-OFK  INEOOHO  /. 

»  TRIT  /  32.6M* I»B.O/ 

DATA  ORIMTR/6L0UTPUT/ 

IFO?=IF° 

IE  (IERB  ,GE.  WARM)  GO  TO  S 

NON-OEFInEO 

IF«I=4 
GO  TO  20 

5  IF  f  IER2  .IT.  TER’?)  GO  TG  10 

ier-inal 

IERi«3 
GO  T0  20 

10  TE  i IER?  ,LT.  WARE)  GO  TO  15 

WARmINGImITH  MX) 

TERi=2 
GO  TO  20 

WARMING 

|5  IERt=l 

tXTPACT  »N» 

?0  IFR?=I£R">-IBIT  (  IEpI  I 

PRINT  ERROR  MtSSAGE 

WRITE  (PRINTRi2S)  ( ityp( ItIEPI) » I=I»2) iNAME»IER2,IER 
25  EnR  'AT(?6R  I  m  S  LUlERlSTl  •••  , ?A10,4X,A6»4X» I2> 

1  QH  ( I EP  =  ,I3,lH>) 

RETURN 


dimension 
Tt.iTcGEH 
EOUtVALErCE 
data  ityp 


"j».r 


D.6  Major  Function  IKIRK  Pertaining  to  Option  No.  1  (IKIRK) 


1 


5 


10 
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rfai  FUNCTION  IkTpKOI.V.T) 

C  FUNCTION  IKIRK  IS  THE  KtOKHOFF  IMENSITY  FUNCTION  DESCRIBED  IN 
C  -HENDON, 8.  AMD  GIANINO*D.  ^OPTICAL  PERFORMANCE  EVALUATION  OF 
C  iNFRAREn  TRANSMITTING  WINDOWS*  AFCRL-72-0S65.  ASSUMING  A  OAUsSIAN 
C  SHAPED  MNPOLARIA2ED  SOURCE,  THt  INTENSITY  FUNCTION  CAN  8E  WRITTEN* 

C  IKIRK  ln.V)=?(At?/ll-FXo(-A!2>  > )  ;«!*<  1 1  ( 0 •  t  «DX>  (FW»FX)  i ! 2* 

C  IT  <0.1 «OX> (Fw*FY)  )  !  2 

C  wHERF* 

C  fw(*4(I)=pXP<-<A#Xi  !?)«EXP(-I»U«X!2/2) 

C  FX ( i,V) =  X«  J0(X*V)  *EXP(  I»K**PHTH  (X)  ) -FZ (X, V) 

C  FY  <X,V>pX»J0(X*V|  o£X»(T»K*HHT  i  (X)  )  »-FZ  (  x  »  V  > 

C  F7(x«VI=ll(X«VI»(FXD  (  I»k*PhIR  t  X)  I  -EXP  I  I»K»PHIT  (X) ) )  /  ( V) 

C  A  =  1  /SORTr2|/SIli»»P 

C  K=w  eVE  NO,  (OMEGA/CI 

C  NOT  AT rON* 

C  !  =>  EXPONENTIATION 

c  I  =>  «imaginaryy’ 

C  T (0.1,OX1(.)  MEANS  integration  of  THF  FUNCTION  within  (1  W.R.T.X 
C  OvEp  THF  interval  (O.I). 

C  10  AND  tl  APF  BESSEL  FUNCTIONS  OF  THE  FIRST  KINO, ZEROTH  ANO  FIRST 
C  OROER  RESPECTIVELY. 

C  PHIR(X)  ANO  PHIT(X)  AdE  THE  FUNCTIONS  PHI-SUPERSCRIPT-RHO  ANn  PHI- 
c  s  pERSCoIpT-tHETA  RESPECTIVELY  I n*  THE  ABOVE  REFERENCE, 
c  these  functions  are  gtvfm  ry» 

C  PHIRI X)=C»SIP»F1 (X) ,A«C»s?P«F2(X) 

C  PHIT ( X)=C»S1t»E1 (X) »4aC»S?T*F2(X) 

C  WHERE* 

C  C=Ri3»Pfl«AETA/KT 

C  R=WtNOOW  PA0IUS  (CM) 

C  U0=“EAN  INCIDENT  dONFR  density  ( WATTS/CM  1 2) 

c  BpT«=BUlk  ABSORPTION  COEFFICIENT  (1/CM) 

C  KT=tHERmaL  CONDUCTIVITY  (WATTL/<CM  oegc> 

C  SI  R  ,S2R.SI  T,52T  ApE  MATERIAL  CONSTANTS  DEFINED  IN  THE  AMOVE  REF. 
c  fi.f2  arf  the  functions  oeltrar-primeix)  and 

C  1 1 /X 12) I (0.X, OS) (oELTRAfl-PRIMt(S)  ) 

C  GIVfN  IN  THE  AB0VF  REFERENCE  AND  WHICH  ARE  PROVIDED  AT  SELECTED 

C  argument*:  BY  PROGqAm  WTFMPSIA. 

eeeeeeneetteaeaa***a*wa*eaa*aeee**eeeea«eeeeea****eeeeeeeeeeaeeaaeaeesee 

COMmON/omTBLK/CS1p,CS?R,CS1T.CS2T,XS,OZ*NF  .MlNT.EPS.Fi  I2oV)  , 

♦  FP(pOO)  .hold. A. k  .TLAST.TNEXT,IERR,IP.MPI,1SW,N, 
♦RAQ.NP1,c3,C1,IFPm,FPRORM 
COMmON/I  FTLES/ 1 T3,  lTA,IT5,IT6,IT7f!T8 
COMmON/UV/IIU,VV 

COMPLEX  01,EXPR.EXPT.EX,FY,F7,EW 
REAL  JO, .11 
REA|  K 

DTMcNSIOM  XA(lflO)  .YRdOOMYI  (100)  aZR(lOO)  *ZI  (100) 

UU*II 
VV  =  V 
A2=A«A 

IF  (A2  ,GT.  220.)  1020,1030 
1020  CONsT=2.»A2»A2 
GOTO  1040 

1030  CONST =2.s (A2/(1.-fXp(-A2)))**2 
1040  (JD2=U/2E0 

C  IE  Isw=,  THEN  THE  ARRAY  OF  POINTS  FOR  GAUSSIAN  INTEGRATION 
C  M  ST  RE  FOUND 

GOTO  ( 10S0, 1060 )  ISW 
1050  ISW=2 

CALL  DQG24A(0E0,lEO.XAI 

IE  (IP  ,EO.  I)  'RtTE(IT6«1>  (XA(I) ,I=l,N) 

1060  CALL  RTAPF3U) 

IE  (IERR  .NE.  01  GOTO  2000 

DO  I00  1  =  1. N  >■ 

X=XA(I) 

X2=X»X 

XV=X*V 

Fw=fXP(-A2»X2)»CExP(CMPLX(0E0»-UD2»X2)  ) 

EXOpaCEX°(CMPLX(0F0.K«PHl (*) )  > 

EXPt=CEXP(CMPLX(OEO.K“HoLU) ) 

IE  (V  ,En.  0«)  EZ=(exPR-E*PT)*X/2. 

IF  (V  .NP.  Oi)  EZ=(FXPR-E*PT)»JJ  (XV)/V 
01 =x*J0 ( xV) 

FX=ol*EXPR-F7 


0U0100 
0)0110 
000120 
000130 
000140 
0(0150 
000160 
0*10170 
OoOlBO 
OuOIRO 
0O0200 
000210 
0L0220 
000230 
000240 
000250 
0O0260 
000270 
000280 
OJ0290 
01)0300 
0»0310 
000320 
000330 
0)0340 
Oo 0350 
01,0360 
0 00370 
01)0380 
600390 
000400 
000410 
000420 
0O0430 
000440 
000450 
0o0460 
6)0470 
6(10480 
000490 
0O0500 
000510 
01)0520 
000530 
000540 
000550 
OU0560 
000570 
000580 
000590 
Ou0600 

0O0610 
6 00620 
0U0630 
000640 
000650 
000660 
01*0670 
000680 
0U0690 
000700 
6)0710 
000720 
606730 
000740 
000750 
000760 
01)0770 
000780 
600790 
000800 
600810 
01)0820 
666830 


/(■—.-  0339IWJWFF*':  ,j 


7? 


208 


7S 


PO 


8S 


90 


FY=«l»EXoT.F7 

OT=rW»FX 

Y'7(t)=RFA|.(01> 

Yf  (  T  )=:Af'tAG(QI) 

)1=fW*Fy 

7P{t>=PFAL(01) 

7 1 ( T ) =AJMAfi(01) 

100  CON' IN' IF 
i  "  row <at(5<ix.6I2.5> ) 

CAU  noG-.ARtoEO.lFO.vR.YRl) 

CALI  nOGRAHtOEO. IcO.YI .Y1 1 ) 

CALI  iV.lfi74RI0E0.lF0. 70. 7Rl) 

CALI  nOfi74BtOEO.lFO.71.7Il) 

IYToK=CO,'IST»(YRI»YRT  »YI  I  *  Y  i  I  »2RI»ZRI*7l  1*71 1  ) 
2"0<)  RFT'lRN 
fmo 


D.7  Major  Function  IKIRK  Pertaining  to  Option  No.  2  (IKIRKP) 
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Rc A[  FIIM'-TIOM  IYIRK  (II.W.T) 

C  A  OR  T  L  1 1  .  I  474 

C  TBIc  FUNCTION  COmrUtfS  THE  KTKKHOFF  INTENSITY  FUNCTION 

C  At  OmG  THF  11=0  AND /do  V=A  AXIS  OF  THE  dLaNL. 

C  5FF  COMMrMTS  IN  IyTor  AMO  COmHIJTF  FOR  BACKGROUND  INFO. 

C  IT  tS  l/A|  in  ONLY  F0°  CONSTANT  TEMPERATURE  WINDOWS. 

DTMrNSrOM  AA(IO) 

COM  <0»I/TFILES/IT3.  lT4.lT5rlTfi.IT7.IT8 
COMmOM/ViCTOP/W 

CnM-'0N/RRTHLK/CSlo.C5?R.C51T.CSHT.XS.r)X  *NF  .MNNT.EPP.F1  (240) » 

«F 7(700)  .HOLD.  AL-’HA  .KF.TLA5T  .TNEXT*  TERR.  1P.MP1.  ISW.NGAUSS. 

♦  RAO.NDl.n.C! 

COMoLFX  a.I00.CRHOO.CTHFTAU.A|U.A?O.A3O.A4Q.A6Q.A7U 
SFAl  RE 

DATA  (AA (T) .1=1 .in) M . .-.9999999R95B 4999999206 1 66b6=30 1 9 . 

♦  .  A4i657T475.-.00R-|01  359A..U01329RBPO" -.001)14 13161  *().  «U./ 

VW=w 

CALI  RTaoFT(T) 

TF  (  rERR.kiF.O)  C.nTn  POOP 
CTHFTAO=rSlT»Fl  ( 1)  ♦a.«CS21*F2(]  ) 

CTHfT  AOsCTHETAOntF 
ConnOsCSlPiFl  (  1 )  ♦  4.*CS?R=m<l  ) 

COHfiO=CRHnO*KE 

4.109=  (0*  ,  1  •  ) 

A’OcCEXo  i  A,ioo»CRHnO) 

A3OrCFXP(A.)0O«CTHFTAO) 

A10-=A70-A30 

A=-rALPH».»«2) 

lr  i A  .lt.  -1000)  GOTO  110 
EXPA=EXPfA> 

4==7.»(A/(1.-EXC,A|  )**? 

GOTO  120 

no  exoa=o. 

Afi=9.»A«A 
1=0  3=U/2. 

TF ( u.FO.n )  GOTO  7n0 
C=( ALPHA /V)»«2 
IFtn.EO.'))  GOTO  140 
240  5TN3=5IN(H) 

COS  >=COS(R) 

AS0=:A»47 

RS0tB»“2 

A40oEAL  =  .5«(  (EXoA»(44Cns8»t)»51NBl  )-A)  /  (ASQ»BSQ) 

440TMAfi=-.5»< (E<°4»(A»S1NB-B«C0S8> ) ♦R)/(ASQ*8SO) 
A4Q-CM°LY(A40RE'.L.A40TM4G) 

A60^AIO/P.«A40 

j  Yf  nRO=lfi»  (  (CABS  (  A20,*A40-A6Q)  ) •*?*  (CARS  <  A3U‘A40. AbCI )  )  **2) 

RETu»N 

140  IF  A  ,fi T.  .691)  GOTO  1000 


0-0840 
01*0850 
0-J0860 
0-0870 
0-0880 
600890 
0-0900 
00091 0 
6-0920 
6-0930 
6 J0940 
000950 
0-0960 
6. >0970 
0-0980 
0-0990 


0-9800 

009810 

009820 

6-9830 

Oo9840 

009850 

6-9860 

0U9B70 

009880 

009890 

009900 

669910 

009920 

009930 

669940 

669950 

009960 

009970 

009980 

009990 

oioooo 

610010 

010020 

610030 

010040 

010050 

010060 

010070 

610080 

610090 

OlOlOO 

010110 

010120 

010130 

610140 

010150 

010160 

010170 

610180 

610190 

010200 

010210 

010220 

010230 

610240 

610250 

010260 

010270 

010280 


209 


010290 

010300 

010310 

010320 

010330 

010340 

010350 

010360 

010370 


CflL)  COMMUTE  (C* Aft *fci *FF2t ) 

(fitER.R-’.RI  SOTO  lioft 

I* I ok'=ARM  (CARS <A2n*FF1-A7fl)  !••:>♦  (CARS (A30«FF1*A7Q>  (»*2) 
RFTiiRN 

i-lOO  WRItE  (TtS.IO) 

11  roR'*AT(/->  ALPHA»»R  rs  OUT  OF  RAMOE») 

2000  RETURN 
FMO 


w&m 


fc.1  Main  Program  DISPLAY 


waUPswaglll 


pod.gRAM  DISPLAY  ITAP'rA=R0/8u»TAOEt;=80/A0>TAPE.3.0UTPUT=M0) 

C  PtUISTD - J-WF  ll*|R76 

Covi-<OM  7(103.103) .XT( 103* iU3) *YT(l03, 103) 
CDM"0N/«Lr>CK3/NP2.Mo7.XMlNF  *YMINE«0X.DY*Swl*  I  T6 
OTMrNSlDM  DAT  A  (  A ) 

DTm^NSIom  PPOGI D ( 1 1  .CODE  (  D  .DATAIN ( 1 00  •  3)  *PARM  ( HO ) 

OfM-NSlOM  INDIA  A)  .zi  Pwq(50)  ,TNI1HX(4.2) 

I'lT-'GFP  CCOOE 

L-ir.rCAL  pLAG.FLadi  *S’/T 

DAT  '  TTA. ITO.ITl/A.A.l/ 

DAT  *  *S.vs/0.*0./ 

T4T'  (OurMT  T  0=7hd  T  aNTND*  7HID  2347. 7H0ISPLAY) 

OAT.  (CD3E=1 *1.4S..7HMA,l*l| 

*T|_  A 1  <K=1  lu 

T'T|.«N<=1'  H 

C  THE  FDUt.O  jInp.  nATA  CA/DS  MUST  BE  INPUTTED  TO  TAILOR  THE  PROGRAM 
C  cop  Thf  USEPf  PAPTIfUl  A’>  APPLICATION.  THE  NUMBEk  IN  PARENTHtSlS  IN 
c  FRONT  DP  EACH  DATAU'l  mAme  II  THE  LARD  COLUMN  AT  WHICH  TO  STApI  THE 
C  DATUM,  the  MUMPEp  In  dAdpntwEBII  FOLLOWING  THE  DATUM  IS  THE  ntFAIILT 
C  KALU".  DP  The  DATUM.  T  e  the  IlF.F  AIJI.I  YALUE  TS  TO  tit  USED  LEAYt  THE 
C  cOPRESPdNdImd  CAPO  T^LU  “LANK. 

C  eAQO  1 

C  (1)  xMAK  (inn.)  MAXIMUM  Pl.OT  LtNGTH  IN  INCHES 

C  (l|)  VMAX  (I  7.)  MAXIMUM  P|  OT  WIDTH  IN  INCHES 

c  (2i)  -.PI  Ill.)  NUMHFR  OF  POINTS/INCH  FOR  com  I  OURS 

C  (31)  ricu  (.1)  NUMBER  OF  INCHES  BETWEEN  IlC-MARKS 

C  TOP  USER  defined  x-y  PLOTS 

C  (All  /LEN  (|n.)  X-Y  “LOT  COORDINATE  FRAME  A-eIAE 


■  LEN 
vLF.M 
'•-CALF' 


x-Y  «L0T  COORDINATE  FRAME  Y-sUE 
x-Y  PLOT  x-SCALt  (UNITS/TlC) 


0-0100 

6/0105 

6  H  0 1 1  0 
000120 
0  <0130 
6/0140 

O/oiso 

6/Oifto 
Oi.0I70 
6  4  0  1  AO 
0/0190 
6/0200 
6/0210 
6.0220 
000230 
6/0240 
660250 
0/0260 
6/0270 
6/0240 
6/0290 
6/0300 
6/0310 
01.0320 
0/0330 
6/0340 
0/03S0 
0/0360 
6/0370 

6/0340 


C  CARD  z-cARO  dDA*7 

c  cap')  z-  contain  the  iMnicts  ot  data  im  'Datain*  which  are  io 

C  »E  plotted  at  the  RFGtN'iTMr,  OF  Each  pUn  Oe  DISPLAY.  THERE  MUcT  BE 
C  DNE  CARD  eqo  FAC.H  'DAtAin*  FVEN  THOUGH  Fop  some  'DATAIN'  NO  DATA  IS 
C  TO  ME  PIOTTFO  (A  HLANh  CaPD  IS  ACCEPTABLE).  THE  INDEX  NUMBERS  START 

C  (N  CDIU-NS  . . . .  A  toIAL  OE  Uo'TO  40  INDICES  PER  CARD. 

C  THE  DEE.IJI  T  (S  A  ML  ‘.Nt  DAPD.I.t.  NO  'DATAIN*  DATA  IS  TO  HE  P'UTTED. 


0<MlX=|(1. 

p  v  *■  *,  x  —  1  i . 
pp  mo. 

TTC'l=.S 

xi_FM=ic. 

YI.E"=4. 

SDAI  EX  =  SDA1.EY=1  . 
XmI,iX=YmiNY=0. 
IMDrXd  .1  >  =  I 


0/0660 
6/0670 
6. .0680 
6 .0640 
6/6700 
6/0710 
6/0720 
0/0730 
6/0740 
6  07S0 
0/0760 
6/0770 
0UO7HO 
6/0790 
6/0800 
6/0810 
6/0820 


C 

<70 

^CALFY 

n .) 

x-Y  PLOT  Y-SCALt  (UNITS/TIC) 

OJ0340 

m 

C 

U-)04uO 

is 

C 

r,  Aiii)’ 

0  J  0  4 1  0 

1 

C 

(On 

rfMTN 

('.) 

X-Y  PLOT  XMIN 

Ol04?Q 

1 

35 

C 

(in 

YMI.M 

( ’.> 

x-Y  “LOT  YMIN 

6.0430 

|; 

C 

<d\) 

•lA'dfc. 

(pappeT  1 ) 

NAME  ON  PI  OT 

6  v'  0440 

1 

C 

(31) 

nROH.  * 

(77/4) 

PLOT  PR08I  EM  NUMBER 

6  j 0450 

1 

C 

0  ;0460 

1 

C 

0  >04  ?0 

4  ■ 

C 

(Cft^O  3 

CONT  a  T NS  TH‘- 

7-1  appay 

'INDEX'  WHICH  IS  THE  INUtX  OF 

0:/04H0 

I 

C 

1  or  at  to 

vS  fop  1  AhElimg  imeOpmai 

ION  ASSUMED  TO  BE  CONTAINED  In  THE 

0  J04Q0 

•1 

C 

I  AST  OAtATM  on  THL  f 

IiE  CONTAINING  The  SUpFACES.  IF  THERE  Is  NO 

000500 

I 

c 

SUCH  ->A 

t A  Them  THIS 

CxPn  may  bt 

ItFT  blank  and  the  labeling  will 

0  <0510 

c 

*|OT  AC 

'ONE.  INDEX  C 

OmStsTS  qi- 

PAIRS  OF  NUMBERS  WHEREIN  ThE  FIRST 

O'.'05?0 

i 

45 

c 

tS  The  STARTING  |  ocatIUN 

of  the  lapel  and  the  second  mumber 

0x0530 

» 

c 

TS  He 

i  FMGTn  OF  TH-* 

i  A3=-L  . 

0  *  0540 

1 

c 

TF  Thc 

i  ETTF-j  «D»  I  * 

oLACFn  IN 

column  i  oe  card  2.  thl  following 

0  0550 

s 

c 

)EFAll|.T 

locations  Aw 

F  1  JS^D  POW 

TIILE  INFOPMATION- 

0'i0550 

1 

c 

(1) 

T  N')F  X  M  «  l ) 

M  1 

surface  title 

6-0570 

5) 

c 

(b) 

T  N‘)F  V  (  1  .?) 

(  ■>/>) 

surface  TITLE  LENGTH  (CHARACIERS) 

U.k‘0550 

1 

c 

(111 

1  NOF  X (?. 1 ) 

(U\ 

PARAMETER  TITLt 

0\  0590 

i 

c 

fib) 

•NOtX f  ?•?) 

mi 

PARAMETER  TITLt  LENGTH 

6.-0500 

s 

c 

(21  ) 

t-MOFx  (3.1) 

( n 

X-TITLE 

6  *>  0  6 1  0 

c 

r£M 

tNOFX (3.?) 

(  3-\) 

x-TlTLE  1  ENGTH 

000620 

8 

55 

c 

f  )D 

rNOEX (4.1) 

n  n 

y-title 

6  u  U  6  3  0 

c 

f  J5) 

t  NuLx f  4 . ?) 

(3«) 

Y-TITlE  1  ENGIH 

1)0  064  0 

1 

c 

(4|  ) 

“IJA 

f^>) 

HUMBER  OE  ' DA  I  A  IN '  ARRAYS 

6^0650 

I 

•  ,  .V- 

■*>rjma>  - 


IP' 


m 

wv  ■ 


"  I  ir-cT*;-  rxv'»- ■** 


m- 


r\»)^xu.’)=3o 

INllrX  (?.  1  )  =4 
i\incX(?.5)=30 
T  MDr  X ( 3 •  1  )  =  7 
INr)rX(3.3)=30 
I\MlcX(4.l  1=10 
INOpX  (4.  A)  =3'( 

\ida-2 

ri; A  •> ( T T4 . Si  (UA7Ad).I  =  l.«) 

IF  rOATA(l)  .NE.  qLAMK)  OtCOOt(l0.6«OATA(l>)  PXMAX 
IP  rOATAI?)  .NE.  PLANK)  DtCOOtl Ia.6,DaTA(2) )  PYMAX 

ip  ioataii)  .ne.  plank)  ntcnnt  ( iA.f,,oaTA(3) )  ppi 

IP  /DATA  14)  .NE.  PLANK)  DECODE  (  1  il  .6.0ATA  (4)  )  TICU 
IP  (OATA(P)  .NE.  PLANK)  ntcnntl  In.fi.DaTATS) )  XLEN 
TP  (OATATM  .NE.  «LANK)  OECOnt (1 A .6.DAT A <6 ) )  YLEN 
TP  (DATA/7)  .NE.  oLAHK)  Oc.Cont(lO*6.DATA(7) )  SCALEX 
TP  ,DATAI«t  .NE.  PLANK)  DtCnnt  ( 10  *6.0A  T  A  <8 )  )  SCALtY 
NPItET  IT A* 10)  PXMAX  .PYMAX*  HP  I  .T I CU. XLfN > YLEN . SC ALEX . SCALP Y 
RFAn(TT4.5)  (OATA(I)  .1  =  1  .») 

TP  rOATAH)  .NE.  pLamk)  DECODE  ( |1*  A.DaTA  ( 1 ) )  XMTNX 
TP  (DATA(?)  ,NE.  pLamk)  DECODE  ( 1.1 .6. r>ATA<2>  )  YMINY 
Tp  f  DAT  A  T  3)  ,NE.  PLANK)  DECODE (Ia.4«0aTA(J>)  PROGlO(l) 

TP  (DATAT4)  .NE.  PLANK)  DtCOnt ( 1a.4.0aTA<4) )  PROGIDI2) 
NPITE(TTA.IO)  X.aTmX. YMINY" 
op  An ( ! T4 • 7)  (DATA  1 1) . T  =  1 .») .MOAT 
Up¬ 
do  ol  1=1*4 

no  "l  J=).2 

I i=» I ♦ 1 

Ip  rl!  ,r-T.  1)  OOtO  34 
IP  (DATAU)  .EO.  t Hn )  GOTO  MS 
64  TP  (DATAUT)  .EO.  Q|.  ANK)  42. OJ 
45  IMOpXTI.  ()  =0 

00 Tn  ol 

91  CALI  RJIIST  (OATA(tll) 

DECnOE  UA.«.OATA(tD)  INDEX!  T.J) 

91  CONTINUE 

SO  49 1  tE  ( I TA. 1 4 )  (  UMOPXU.J)  *J=I*2)  *1*1.4) 

C  INITIALIZE  THE  plotter 

CALI.  PLT ID3  (PWOOIo«pxmax  .PYMAX.  IFO) 

C  OL0T  nATA  BLOCKS 
PPWTNO  I T 1 
TpT  =0, 

IP  (NOAT  .EO.  I  BLANK)  goto  94 
CALI  RJUSUNDAT) 

DECoOE(l".a.NOAT)  NDA 
IP  (NDA  ,F0.  0)  GnTo  70 
94  DO  06  1=1. MDA 

pPAn(IT4.9)  (  IND(  1)  .  1=1  .49) 
no  o7  j=i.40 

IP  (IND(  It  .EO.  I pl A* ik )  96.99 
9a  iNOfJI* 

GOTO  97 

99  CALI  RJUST  (IND(  I)  ) 

DECODE <1 A .O.TNDl J1 )  TND(J) 

97  CONTlNUF 

4PI tE ( ITE . 1  1 )  NOA.(IND(K)»K=1.40) 

PPAoUTl)  O  A  T  A I M 

CALI  ElLI  (DATAIn.pApm. TMD.IOn.I  .NN) 

CALi  PA9nplT(XPT.pE0..1E0*EAPM.I,NN) 
xai=xpT»i. 

94  CONTINUE 

7a  CALi  PLOT (XPT .0 . .-3) 

c  start  tme  matm  display  loop,  intpwp  beads  and  interprets  the  display 

C  COMMAND*.  IT  returns  a  pi. AO  VALUF  OF  .FALSE.  IT  THE  LAST  COMMAND  HAS 


:  bpfm  read. 

P|AO*.T. 

INOlC=l 

100  00  .01  K=1.7 

C00piK)=9L»NK 
I.'l  CONTINUE 
inotx=o 
xp=.5 
I°Emx? 

CALi  INTFRP(CCODE. CODE. FLAG. T 14) 

IF  (.NOT.  FLAG  .AND.  INDIC  .m.  2)  GOTO  2000 

if  f ccons  .eo.  ii  write ( i is. is)  (Code(K).k=i.s) 
ip  iCCOnp  .EQ.  2)  WRITE  (MS. 12)  (CODE  (K>  *K  =  1 .4) 
IP  iCCOOF  .EO.  31  WRITE ( I  IS. ) b)  (CODE (K) .K=l . 7) 

flag!=.t. 


0u0H30 
04  0840 

Ouoaso 

oi.'oaao 

Ou087O 

ii  oaao 

0'.0890 
01/0900 
0u0910 
0  J0920 
6/0930 
OL  0940 
060950 
040940 
040970 
060980 
0f0990 
OillOOO 
OvlOlO 
661020 
OolOlO 
0ol040 
041050 

O'iioao 

641070 

Ojioao 

091090 
6 j  1 100 
0111 110 
041120 
041110 
6  11140 
041150 
041160 
041170 

6'Jiiao 

061190 

00)200 

0U1210 

0J1220 


061230 
001240 
041250 
041260 
041270 
0ul2?0 
041290 
041300 
6)1310 
6.)  1320 
6a 1 310 
0o 1 340 
0UI350 
6 J 1360 
04(370 
061380 
6 1>  1 390 
001400 
041410 
0o|420 
061430 
O')  1440 
041450 
61)1460 
06)470 
641450 
041490 
041500 
061510 
6  1520 
041530 
0.)1540 
0ul550 
041560 
041570 
0u 15B0 
0ul590 
041600 
061610 
041620 


m 


|IH 


I'lT  tiMY 


Vt _ I,*  ; 


155 


160 


165 


170 


175 


180 


185 


190 


195 


200 


205 


210 


215 


220 


225 


230 


IF  (NflA  .LE.  01  GpTO  8? 
pFwtND  I t 1 
On  ol  1=1 ,  NDA 
rearmth 

81  CONtINUF 
85  IMQlC=2 

7m1uA=1E100 

ZMA«*=-moo 

N5T ART=CnOE  <21  .no.  n 

N5T«RT=NSTART-1 

IF  (NSTART  .IE.  <M  GnTO  72 

no  1=1 .nstart 

CALl  901  (I  T3.D1 .07, 87.06.6 «  Fl.  AG  1 ,05,06 «  07 ,08.091 
IF  f.N.  F(_A81)  nnTO  100 
74  CONTINUE 

NSKtPfCODEIH  .OR.  0 
N5ktP=NSkIP-1 

ooto  <uo. i20*noi  ccnoF 

C  I  10  =»  CONTOUR 
C  120  =  »  cERSPFCTIVE 
C  130  =>  oLOT 

C  CONTOUR-  IF  CONTOURS  aRf  TO  RE  NORMALIZED  OVER  ALL  SURFACES,  UND  THE 
C  wAX.  ANO  MIN.  OVER  AI.I.  si|RFACtb. 

110  IF  (CODEI4)  .EO.  ?HOM  .OR,  COUE<6)  .Eo.  2HL1N)  GOTO  150 
t  Afl  CALI  R01  <  IT3.NP.Md.7MAX.ZM1N.  1«FlAG1.t1M.AM1N,XMAX.YmIN,vMAX) 
nditE (Its. 13)  np.mp.7max./mjn*tim« xmin.xmax.ymin.tmax.flagi 
IF  <COOE<4I  .EO.  ?Hmf  .OR.  COUE(a)  .EO.  2HNE)  GOTO  14U 
CALI  5KID(IT3,NSKTP.FLAr.liNP) 

IF  (ZMAX  ,GT.  ZMAxA)  7MAXA=ZmAX 
IF  rZMlN  .LT.  ZMInA)  7MINA=zm1N 
IF  (FLAG)  I  GOTO  IfO 
140  REWIND  It3 

flagU.t. 

IF  (NOA  ,LE.  0)  GOTO  145 
DO  «3  1=1. NOA 
READ  » ITT) 

87  CONTINUE 

145  IF (mSTARt  ,LF.  0)  GOTO  150 
00  >15  1=1. NSTART 

CALl  RD1  (IT3.0UM1  .0l|M?,nUM3,nUM4.6,FLAGl»0UM5»DUMb,l)UM7,nUM8. 

♦  OHMci) 

115  CONTINUE 

150  GOTO  <155,250.350)  CCOOE 

C  n£xT  fill  THF  7-array, OFTERMlNt  CONTOUR  LfVELS  ANU  DRAW  THE  CONTOUR  MA 
155  C At  I  R01  <TT3.NP.Mo.7MAX.2MiN.2«FL*Gl»TlM,XMIN,XMAX.YMIN,YIAAX) 

IF  ( .NOT .  ELAG1I  nOTO  100 
IF  <C00E<4)  .EO.  2HDN1  170,180 
170  CALl  CLE1<<COOE<31  ,ZmAX,ZmIn.Z|  EVS1 
GOTO  190 

1«0  IE  <C00E<4)  ,EQ.  7HN A 1  200,210 
200  7.MAX«7MAXA 
7MIn»7MIMA 

210  C=lftO./17MAX-ZMIN) 

DO  ’20  J=1 ,MP 
DO  ’20  1  =  1. NP 
Z<I,J1*(7(I,J>-7MTN)*C 
2’0  CONTINUE 

CALL  CLE1<<C0DE<31 ,101. .O.'ZLFVS) 

IqO  XLEn1»AmtN1  <  IMP-1 1  /rdT,dYMAX-1.) 

YLEMl  =  AMTNl < INP-1 1 /DDT .PYMAX-1 . 1 

IE  (C00EI5)  ,EO.  2HS°  .A.  I  NO  1 X  ,ED.  1)  GOTO  205 

CALl  CFRAME<tNDFX.ZMTN.7MAX,COQE(4)  ,Np.MP,  T  IM.PPI .  100.  »6.  ,0.  . 

♦  XMI N,  XM  A  X.YMIN,  YMAX.DAT  A  TN,X|.tNI,TLENl  .CCODEl 
INDTXsl 

2<l5  SYM=SYM8L  f  T I M  > 

NX=tNDEX<2,2) 

IE  (NX  ,FO.  0)  GOTO  22? 

CALl  SYmrOLIXLENI.Xd.dymaX-I .1,. IEO.DaT AIN (INDEX <2,11 ,1) .0, .NX) 
GOTO  223 

222  CALL  SYMBOL IXLENI.Xd. PYMAX-1.  1 , , IE0 .9HPARAMETER.0, , 9) 

2’3  CALl  SYmpOL  (999P0  ,9drE0.  ,  lEO.^TM.OtO.  I0l 

CALl  rONTOR(NP,MP.COOE<3>  »  ZLEVS.BCaNK.XLENI  »YLEN1  ,XP. PXMaX-1 .2) 

IE  fCOOE <51  , NE.  2HSD)  GOTO  215 
XP=xP*6, 

IdEm*IPEN*1 

IF  (IPEN  .GT.  31  TP'  N=1 
CALL  NEMPEN (IPEN) 

GOTO  196 

215  CALL  PL0t<XLEN1.12.,<1..-3) 

196  IE  iFLAGI)  195.10a 


001630 
001640 
Ou 1650 
001660 
0ul670 
0ul680 
001690 
0ul700 
0  u  1 7 1 0 
OU1720 
601730 
001740 
001750 
60 1760 
0ul770 
001780 
601790 
001800 
OUIBIO 
001820 
60 1 830 
001840 
0-J1B50 
091860 
001870 
Ou 1880 
001890 
001900 
001910 
001920 
001930 
601940 
0O1950 
60 1960 
001970 
001980 
001990 
661991 
0UJ992 
001994 
601996 
Ou 1998 
0O2000 
002010 
602020 
002030 
002040 
002050 
0U2060 
002070 
002080 
002090 
662100 
602110 
002120 
002130 
662140 
002150 
0O2160 
002170 
002180 
002190 
662200 
002210 
002220 
002230 
002240 
002250 
002260 
662270 
002280 
662290 
002300 
002310 
002320 
0u2330 
002340 
002350 
002360 
0U2370 


215 


235 


240 


245 


250 


255 


260 


265 


260 


290 


295 


300 


305 


310 


|.i5  CALI,  SKTb;IT3«NskiP.flAG1»NP) 

IF  /FlAcii  155. IOr 

!'6  IF  (COOFI6)  ,  NE.  9HSo)  GOTO  100 
COl.l  NEW°EN(9) 

C4I.1  PLnT(XLENWXo»R..0F0.-3) 

GfiTn  100 

C  START  of  PFRFPFCTIVF  nLOTR.  FIRST  FIND  ZMaX.ZMIN  FOP  NORMALIZATION  IF 
c  SIOOMAI  J7ATIOM  IS  OVFR  Alt.  SIIRFACF5. 

1 70  GOTH  no 
2C0  PPNlfl. 

IF  (HP  .GT.  nP>  ROTO  39f| 

<LE-iI=5.«MP/FLOATtK)o) 

VLFm1=5. 

OOTo  400 

390  VLEmIfS.iNP/FLOAT (MP1 

C  THF  mf/t' Task  is  TO  FtNO  SCALING  factors  for  the  DISPLAY  bY  CALLING 
C  FACE  MI rH  A  rectangle  FUNCTION. 

4  '>  0  MP  1  rNP  *  1 
M° l rM°  * l 
1007, N°1  *1 
MD9,MP1. I 

X7  =  tlP7*»7 
V  7smP2**  7 
H=SmRT(X9.Y2) 

TMEtA1=. 785398164 
TwFTA2=CnOF( 31 /18a. at. 14159265 
X=.c*UP7.H*C0S(THfTA7) 
y=,F»NP7.H»SIN(TwcTA7) 

Cl=.S*H 

C»l  I  APLACE(XP.YP,XI,rNl  .YLtNl«C00E(3) ) 

C  TH(S  SlloROUTTNE  FINOS  THF  onlNT  Al  WHICH  TO  PLACE  THE  VIEW-AmGLE 
C  ARbOm 


270 

2*0 

on  560  k*.  1 . np2 

7(K.1I=7(K«MP2)=0 

CONTINUE 

on  ’70  k^p.mpi 

270 

7(Np2.K)x7(1 .K)=0 
CONTINUE 

on  980  1-2. NP1 

275 

on  980  i-=7.mpi 

2*0 

7  n . j)=ci 

CRNtINUF 

SM(*s.F. 

C  PLOTTING 

CALI  FACFCX.Y.H.THETAl .THtTAP.O) 

SVTr.T. 

M7ItE(IT6.7)  XMTNr.YMTNF.DX.nT 
2  F0R"AT(1X.4E15.5) 

C  NOW  FTLl  I)P  THE  Z-AoRaY 

290  CALI  901  (  TT3.NP.Mo.7MAX.ZHlN.  J.F|  AR1.t1H.XMINiXMAX.YM1N.VMAX) 

IF  (.NOT.  FLAG1I  GOTO  100 

if  (CODE  14)  ,E0.  7HMF)  GOTO  300 

7mTm=ZMIMA 

7mAx=ZmaxA 

C  mow  ORAM  LARFLS.ETC. 

30  C=C</(Zma*-ZMIN) 

no  ->io  (=?.moi 

00  MO  x=2.NPl 
7(K.J)=(7IK.J)-/MTN)»C 
3)0  CONtINIJF 

dd=  1»Am'.X0<MP.'*PI 

call  CFpamE  ( INOFX.ZMTN.ZMAX. CODE  (4) .No.MP.TIM.PP.Cl .6t0. ItO. 

♦  XMiM.xMAx.YMTN.YMAX.nATAlN.Xl  tN  1 . YLEN 1 . CCOUE ) 

CALI.  ARROW  I XP.YP.  |  .  .CODE  131 . IOHVtEW  ANGLE. 10) 

XoTfXLENI .4E0 
Y°Ti-iE0 

CALI  PLOT (XPT.YOT.-3i 
C  MOW  00AM  PERSPECTIVE  DISPLAY 

CALI  FAC.F  (X.Y.H.THETAl  .THLIA2.0) 

C«Ll  °LOT (12FO.OEo.-3) 

IF  (FLAGl)  320.100 
370  CALI  SK|o(IT3;NSKTP.FLAGl.NP) 

C  rTaRT  of  X-y  PLOTS.  First  find  ZMAX.ZMIN  for  scaling  if  scaling  is 
C  OVER  ALL  SIJofAC.es 

3R0  CALL  oOl  ( I  T3.NP.Mo.  7ma  X  •  ZHIN.2.F(  AG1.tIM.XM1N.Xmax.TmIN.yMAX) 
IF  (.NOT.  ELAG1)  GOTO  1(15 


Ou2380 

0  J2390 

0u24OO 

002410 

002420 

0m2430 

0-j2440 

002450 

0U2460 

002470 

0J2480 

002490 

072500 

002510 

072520 

002530 

072540 

072550 

002560 

072570 

002580 

072590 

002600 

072610 

072620 

072630 

072640 

0U2650 

002660 

072670 

002680 

002690 

072700 

072710 

002720 

002730 

002740 

602750 

072760 

002770 

002780 

002790 

002800 

072810 

002820 

002830 

002840 

072850 

072860 

072870 

0o288O 

002890 

0j2900 

072910 

002920 

002930 

002940 

0O2950 

002960 

002970 

0U298O 

002990 

073000 

003010 

003020 

003030 

003040 

003050 

003060 

073070 

003080 

003090 

003100 

O031 10 

003120 

003130 

003140 

003150 

003160 

003170 
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315 


320 


325 


330 


335 


34  0 


3’0 


|P  (COUFdi) 
If  (COOEIM 
7m1.i  =  7MTNA 
7oax=7M4XA 
CONtINUP 
15  (C0QF(7) 


.to. 

.EO. 


7HMP I  GOTO  3/0 
OHDM)  GOTO  3/0 


.  NE. 


7HS°1  XS=YS=0. 

C«Li  PLOtTI  (TICu.gCAI  Fx  .SOALFY  .Xt.EN.Yl  EN.T  1M.NP.MP.  IT6.  U'UEX. 
♦DAT  A  IN. XoJN. XMAX . YMTN*  y«aa.xs.ys.zmin.zmax,code,xminx.xmtny  ) 
IF  (FLAfill  380.10s 
300  CALI  SKTo(TT3<N-KTP.5L«r.l»NP) 

IP  (F|_AG>)  350,105 

I  r,5  IP  f CODF  i 7 1  .EO.  sHSo)  CALL  PLOT  ( XLEN.6 . « 0.  •  -3) 

XS=vS=0. 

coin  Ibo 

2300  CALI  EMOol.T 

15  format  U  X.2I5.3X.  Al  ,:>I5,3X.A2,3XA2) 

15  p,1PvATI1X.3I5.3X,a2,3XA?) 

16  F0P*'AT  1 1  X  ♦  51 5) 

n  FORMAT  1 1 X  .21 10/1  X.  4010.  ’/I*  ,301 0.2.  Lin) 

17  FORMAT  ( 1 X  .215  *  3X  .Gl  d  .  2. 3X  ,  A?.  JX  A2. 3XA?) 

II  FoPnATdx,  15.4  (  'lx,  10T5I  ) 

10  FORMAT  ( l X *4Gl 0 , 7  / 1  X , 4(31 0.21 

9  P(|B"AT  (4042) 

a  FflP'.AT(IIO) 

7  FORMAT 1QAS1 

5  FOR  MAT (FI  0.01 
5  PORvAT(AAlO) 

4  PORxATUlO) 

PMO 


033180 
003190 
003200 
003210 
603220 
003230 
003240 
003250 
003260 
003270 
003280 
OO32R0 
603300 
003310 
0O3320 
663330 
003340 
003350 
0o3360 
003370 
003380 
003390 
003400 
00341 0 
003420 
003430 
003440 
003450 
003460 


E.2  Subroutina  PLOTT1 


10 


15 


20 


25 


30 


35 


SIIBoOIITInE  PLOTT1  ( T  ICH«  5CALXX  .SCALYY  .xLEN,  YLEN.TIM.NP.MP,  IT6. 

♦  !MI)pX  ,  DAT  A  IN,  XMTNX  ,  XmAXX  ,  YMI  S|Y  .  YmAXY,  X55,  TSS.  ZMIN.  ZMAA.CflUE  , 

♦  XmImXX.Y-.iINYY) 

OIWPNSIOM  PTITLF(P)  .TITLE  lb)  ,XTITLE(5)  ,miLE(5) 

0IMFN5IDN  INDEX  (4,2l  , DA TAlN(  100.3)  ,XApRAY  (101)  .YARHAY  <101  )  .CODE (7) 
COMMON  7(103.1031 

c  IN  THP  r I q5T  part  OP  oLOTTl  THE  COORnINATP  Frame  is  DRAWN  ANn 
C  TITLED.  IP  CPDEIT)  15  DM  THEN  SCALING  IS  OBTAINED  FROM  THE  USER. 

C  OThERNIpE  SCAl  INC,  IS  nONP  BY  SUBROUTINE  SCALE. 

C  THE  IMDPX  ARnAY  IS  IISPD  AS  IN  SUBROUTINE  cERAMt  TO  OBTAIN  VApIOUS 
c  TITLING  INFORMATION.  tHp  PLOT  Y-AKRAy  IS  OBTAINED  FROM  Z(I»J>  AS 
C  vapray  ( . 1 =Z ( . .N)  IF  CaDP(3)=X  ANn  AS  Y ARRAY (.) =Z (N. . >  IF  Ct)OF(3) 
c  =Y.  WHEdE  N  cTARTS  AT  ConE<4>  AND  IS  INCREMENTED  BY  C00E13I.  THE 
C  CALL  pLdTTI  MUST  SUpP|  Y  THE  FOLLOWING  ARGIlMENTS- 
MT=r00E(6)  .OR.  0 

IF  (CODE (7)  .EO.  =Hs°  .A.  XSS  .NF.  0.)  SOTO  430 
xs=vS=0. 

370  YmIm=YAqpAY(11-7MtN 
YARoAY(?)=ZMAX 

CALI  SCAI.E  (YARRAY.Yi.pN.2.1 .20..YMIN1.DELY) 

IP  iCoDFni  ,E0.  |HX,  3B0.3R0 ' 

30O  XMJ>i=XMlNX 
XMAxsXMAXX 
DMj  Mr YMT  MY 
PMAx-YMAxY 

OPLx*IXMAX-XMINI  /AMATO ( 1 .MP-1 ) 

0FLp*(P‘U  x-PMINI  /AM4X0  11  .NP-1 ) 

no  382  1=1. mp 

TARoAY (11=XM1N»(I-Il ♦OELX 
302  CONTINUE 

NX=tNOEX (3.2) 

MM=(N,.Rl 710 

IP  (NX  .ME.  0)  goto  SOS 

NT  =  7 

XTlTLE(ll=7HX-VALi|E 
GOTO  50(1 

5*5  I T=tN0EX (3.11 
00  o84  1=1. NN 
XT | TLE ( 1 1 =OAT  A  I  V ( T 1  .  1  ) 


003470 

003480 
003490 
003500 
00 35 10 
003520 
003530 
003540 
003550 
003560 
003570 
003580 
003590 
603600 
603610 
003620 
003630 
603640 
003650 
603660 
003670 
603680 
003690 
603700 
663710 
663720 
663730 
603740 
663750 
003760 
003770 
003780 
663790 
603800 
003810 
663820 
603830 
663840 
663850 
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n=ii*i 

CONTINUE 

NT  =  iNitEK(4,ai 

Nmt(NT*9)  /I0 

If  (NT  .uF.  0)  (Vito  9 IS 

NT  =  7 

TTTl  E«ll=7HY-V»U)r 
oot n  5 1 1 
TI=TN9EX(4.1> 

00  i8.fl  I  =  1«N|M 

Tin  E(I) tOAT AINdTil) 

t  T  =  T I ♦ 1 

CONTINUE 

uPTf&xp 

MU>'=NP 

r,oTi  400 

XMTMaVMlMY 

xu»x=ymaxy 

omh,*xmimX 

dmAx=XMAXX 

l)F|_ V  =  I Xm •  X-XMIN)  /  AMI VO  (  |  .NP-1 ) 

OELO=(°MOX-PMIN)  /AMAXtt ( 1 .MP-1 ) 

OP  i92  !=1.NP 

XapoAY  (n=XM!N»(I-l)  *OEt_X 

CONTINUE 

NX=lN0EXf4,2> 

NN=iNX»9) / 1 0 

IF  (NX  .ME.  0)  FOTO  525 

NX  =  7 

XTIrLE(n=7HY-VALUE 

r,OTo  520 

II=tN0EX(4.1) 

no  l94  IiI.NM 

XTItLE ( I ) =OATAIn ( t I . I ) 

I t=T l ♦ 1 
■  CONTINUE 
I  NT  =  iN0EXO.2> 

NNs  f NT*9 ) /10 

IF  ,NT  ,mF.  D)  OOTO  FOE 

NT  -T 

Till  E<1)=7HX-VA|  Ur 
fiOT'f  9.00 
i  I T=lNUEX  < 0* 1 ( 

00  194  1  =  )  .NN 

Till  E(I)*DATAINdI.1  I 

U  =  'I*» 

>  CONTINUE 
I  MPTf*MP 
Nl  lv«MP 

)  C«U  SC  A)  E  (  XARPA  Y  ,  X|  FfJ.MP  lb. 1*20. t  XMInI  iOELX) 
ny=iN0EX M  «21 
NMs (NY *9 \ /10 
IF  f  NY  ,f.iF.  0>  SO  TO  545 
NY=T 

YTItLE ( 1 ) s7HZ-VALmE 
SOTO  940 
5  I I  =  YN0EX  fit!) 

00  410  Iil.NN 
YTItLE(I)=0ATAIm(t1.t) 

It=rl»l 

0  CONTINUE 
o  NPttNOEX (2.2) 

IF  ,NH  ,mE.  0)  SOTO  555 

Nn|=(N8*pi  /10 

NP=>0 

p  T I  tLF.  ( 1 )  =  1 0  mP  A  ■>  AmEtfp 
OOTn  990 
S  I T=tNOEX (2*1) 
on  /.2o  ItI.nm 

“TITLE  (  I  )=r>ATAIM(  T  I  .  1  ) 

I  I  =  T  I  ♦  I 

0  CONTINUE 
0  ISY<=0 

NtCoOEIFi  .op.  ft 

ISxtCh=0 

IF  fCOOF (El  ,EQ.  iHOH)  00 TO  430 

ISYtC-ifp 

SCA(  EX=UEL  X 

XMUpXMIMl 

sf.ai  EY=ocLY 


003880 

003870 

603880 

003890 

003900 

003910 

003920 

003930 

003940 

003950 

003960 

003970 

003980 

003990 

004000 

604010 

004020 

004030 

0O4040 

004050 

004060 

OU407O 

004080 

004090 

0O4100 

004110 

004120 

004130 

004140 

004150 

004160 

004170 

004180 

004190 

004200 

604210 

004220 

004230 

004240 

004250 

004260 

004270 

004280 

004290 

004300 

004310 

004320 

0O4330 

604340 

004350 

604360 

004370 

004380 

004390 

004400 

604410 

004420 

004430 

604440 

004450 

004460 

004470 

004480 

604490 

004500 

004510 

004520 

004530 

004540 

004550 

004560 

604570 

004580 

004590 

004600 

004610 

004620 

004630 

004640 

004650 


0  4660 

6  ,4670 

0)4630 

0  4640 

0-4700 

0J4710 

6-4720 

004730 

0  .4740 

0,4750 

004760 

004770 

004780 

004790 

004800 

6-4810 

004820 

0-4830 

0  ,4840 

00,4850 

0-4860 

0-4870 

0 J48R0 

0,4840 

6)4900 

004910 

0 04920 

0,4930 

604940 

004950 

0-4960 

0  ",4970 

004980 

004990 

0-5000 

0,5010 

6-5020 

0  ,5030 

005040 

6-5050 

0  )5060 

0-5670 

0,5080 

0  ,5000 

005100 

005110 

O', 5120 

0C5130 

0-5140 

6-5150 

0  ,5160 

035170 

0.35180 

6-5100 

605200 

6-5210 

005220 

005230 

6-5240 

6)5250 

005260 

0,5270 

0)5230 

0)5200 

005300 

6.  ,53 10 

605320 

0)5330 

005340 

6-5350 

0-5360 

005370 

6,15380 

u  5300 

6- 5400 

0,5410 

6-, 5420 

u  5430 

6-5440 

6-5450 


C  fTAPT  0^  MAT"  °LOTTTMo  1.00° 

430  lc  ,8  .or.  NLIM>  oOTo  44 0 

if  (CoiJrni  .ED.  >HX)  fioTU  458 
30  ,.60  I-l.MPTS 
YAHbAY  <TI=7H*M> 

860  C9NTIMU5 
6974  470 

490  OO  ,.80  i=1.nbTS 

Y09o>AY(I>=7»M.I) 

430  CONTINUE 

4-70  Ci10',E=8M1N*  (M-l  1  »nE|  a 

IF  ,0008(7)  ,NE.  PHS3)  0010  42S 
TT YTST1M 
tiw=cupi/f 
C'IS»'E-Tl>tT 
no  815  T=1.5 
TIYtsPTitLEII  I 
pt  f  TLE ( T ' -T ITLE ( T 1 
TUI  E  < 1 1 =TTMT 
21  5  C0NT INUE 
TTY7*,J3 


nTs-ImT 

(f  (X5S  .ME.  4.1  OOTO  200 
435  OOTe  I2(>o.220. 210. ?0O)  TSWTCh 
210  C  0 1_|  Pl.0TfXS.YS. 3» 

TS"tCh=4 

Xc  =  vS=i). 

SCAy=TIC’,/SCALXx 

S5Ay=tjcm/SC«LYY 

EMCoOE  ( 1 0. 1 «  f  SY  18)  Y‘<TMYY 

COLL  5YWOI.  1 .0r0..)F0.1SYMB.9,'E0. 1  n  ) 

CAL,"  SYmpoI.  (XS-.2rO.vs*  1  .2t0.  .  IE0 « YTI TLE .9OE0.NY ) 
CAI.I  SYm„0L(999"-0 , 9t>oro.  .  ito.  108  SCA|.r  IS  .90E0.10) 
ENCODE  ( 1 ) .  1 .  T SY‘/9|  SCOt  VY 

CAI.I  SYMBOL  <999-  0, 90  pE  (i..iE0.1SYM8. 9050*10) 

CK.i  SYMp 01(80980. 9'OFC..lfc0.10H  UNI TS/TIC.90EU. 1 1 ) 

FNCoOE  ( lo .  I  •  TSY88)  ymINXX 

C.ALI  SYm  iOL <OEO.-,2c'r  «.IEO*IsYMH.0E0.l0) 

CALl  SYvoOL  (1  .(f*0  .-.3r0  .  #  150  •  X7  ITLE.O50.NX) 

CAli  SYmool  (999 '0.9,3050..  IE  0.1  OH  SCALE  15  .050.10) 
EMCoOE <  1  '•  1  •  1SYI9|  scalx.X 

CAL'  SYM.-,nL(Q99  0.99950.. ltd. ISYhB.OEo. 10) 

CALI  SYhpOL (999C0.99OE0 ..ItO.lOH  UMlTs/T IC « oEO. 1 1 ) 

CALl  PLOT (OEO. O'A.31 

YPTtO, 

DO  >00  1=1.1000)0 
N=I 

XoT-I  =  Tlcil 

IF  ,K9T  .(AT.  XL-Ni  ooTO  loOO 
CALI  9LOT(XDT.Y'>T.?) 

CALl  P|.0  v  (XPT.Y  —  T*#!  .2) 

CAL'  BLO-7IXPT.YDT.2l 
1«6  C0N-7INU5 
1400  XDT=(N-)1*TTCU 
do  >10  T= 1.10000 
N=T 

YdT  =  I*TT'-|I 

If  (Y-T  ,r,T.  YL-M)  O3T0  1U10 
CAI.I  9LO*T  (XPT  .YPT  .?> 

CAI.I  °L0T(XPT-.>  .Y°T.?) 

CALl  9lot  (XPT •  Y->T .?) 

no  continue 

1-ift  voTr(N-) >*TICU 
<ojt=XPT 

00  >20  1=1.1000' 

M=1 

XPr^XOTT-JoTICU 

IF  (XPT  ,LT.  XS)  r. OTO  1420 

CAL'  °Lor (XOT.YoT .2) 

CALl  PLOTCXPT.Ypt-.i .?) 

CAL'  PLOT(XPI.YPT.?! 

IPO  CON  T IyUr 
l>20  yott=Ypt 
<?T=XS 

CALl  “LnT(XS.YPT.p) 

CAL'  °LOT (XS.YPT .3) 

00  '3-,  1  =  1.10000 
ydT=YdTt-1»T1CU 


S  ■ 


200 


205 


210 


215 


220 


225 


230 


235 


240 


245 


250 


255 


260 


265 


IF  |Y°T  „!_T.  YS >  CUTS  1030 
CALI  BLOT (XPT>Y°T.2l 
CALl  BLOT!XPT*.l  .YPT.?> 

CALI  BLOT (XPT.YPT .2) 

no  continue 

1030  CALI  BLO-IXS.YS.?) 
r,o To  230 

2o0  C»Ll,  PLOT  (XS.YS.3i 
ISwtCH=I 
*<;ivS=;)F0 

CALI  AXic  (XS.YS.  XT  1  T|  E.-NX*XLtNi0Ei).XMlN.5CALEX.2O.) 

CALI  AX|c(XS.YS.YTtTi  E*K|Y. YLFN.9{|E0  •  YMlN.  SCALEY.  20.  1 

C  m£XT  blot  parameter  Am!)  CURVE  titles 

230  CALI  symbol  (XS*  IF  o.vS*YlEN*  .  ?• .  1F0  ,PT  T  TLE  .OlO.NR) 

SYM  =  SYMai  (T1MI 

CAI.I  SYmaol<S34c0.RORF0..1^0.5Y5.0E0'I0) 

TSSbXI  r N . IF 0 
YSStYI FM-lEO 

CAI.I  SYM«nL<XSS.YsS..lFO«l  lTLt'OFO.NTl 
C  PLOT  CURVE 

200  C*Ll  PLOT (OFO.OT 0 .3t 

c,nTc  (  ?ao. 240.250 . 2F0I  ISXITCh 

240  CALI  LIN7  (XAPRAY. yARRAY.NRTS.  1.5. 15YM. XMIN.5CALEX* YMIN. 

♦  SCAi  EY..ft7) 

SOTO  1050 
250  XO=yQ=-.i 

XLE‘=<l.FN».l 

Y|  E"=YLEN».l 
Tnr:-' 

no  T 40  jm.NOTS 

\'=  T 

«OT-:(XADPAY(I)-XMTN<X>,*SCAX 

Y0T;(YA0PAYU>-YMTNYY»«5CAY 

if  (XPT  ,CE.  XR  .aN'3,  YOT  .C.F.  YO  .AMO.  YP I  .LE.  YLEMI  onTU  1040 
CONTINUE* 

WRITE ( ITA.2) 

c,OTp  105  0 

FoRuAT ( 1 x . a  mo  POTNT5  dlQTTEO*! 

IF  (ISYmi  1070. 1 nTO.IPOA 

C«L|  PLOT(XPT.YPT.IP) 
n-p 

03T  o  1  06- 

CALL  SYMBOL  I  XPT  .YRT..1.ISYM.3..-D 
N=N.I 

IF  (N  .CiT.  NPTSI  SOTC  1050 

YOT- ( YARRAY (M) -YMlNYY) «SCAr 

IF  (YPT  ,c.T,  YLFM  .30.  YP  I  .1,1.  YO)  C.nTO  !Ub5 
XoTr<x AroAY <wI-xmiNXy)»cCAX 

IF  (XPT  ,C,T.  X L F M  .OP.  xPI  .1  I.  <01  r.oTO  1065 
r,oTn  1 04 A 
1065  1P=3 

C.nTn  1 06A 

1050  IF  ( ISYm  .LT.  0)  t5ym=|5 
Y5S=YS5-.  15 

IF  (YSS  ,C,T.  0.1  c-OT(i  260 
YSS-YLEN-1 .15 
X55=*5S»R. 

260  CALI  SYManL(XS5.Ys5..1F0.15YM.OEO.-l) 

C*Ll  SYMBOL  (999FO.9Q9F0..IEO.2H  .OE0.2) 

fnCoOE ( 1  a . i *  I SYmr >  CURVE 

CALI  SYMnOL  (RR9C0.SQRE0. .ItO* ISYMB.OEO • 10) 

I SYm*MOO ( I SYM* 1 . 1 3 ) 

IF  (C0UFI7I  ,E3.  2HSO)  C.OTO  5b0 

M=M.MI 

r.oTn  430 

440  XOT=XLEN.6EO 

CALI  PLOT (XPT.0F0.-3) 

560  RETURN 
1  ■  foRmAT (GI0.3) 

END 


160 


104  0 

1070 


H',Bo 

1360 


OV5470 
0U54BO 
005490 
0o55OO 
0/5510 
00S52O 
0i/5530 
005540 
0u5550 
0  5560 
0O557O 
0o558O 
0v559O 
0o56Q0 
0o56lO 
0 .15620 
0»563O 
0/5640 
0V565O 
005660 
0y5670 
0./56B0 
0  .<5690 
01/5700 
005710 
005720 
0o573O 
005740 
065750 
0/5760 
0 5  7  7  0 
0>  57«0 
0..5790 
0 .5600 
005810 
U05B20 
01.5830 
0/5840 
0J585O 
0/5860 
01/5670 
0/6860 
0/5B90 
0  .5900 
0o591O 
0/5920 
0 .5930 
0  .5940 
01-5950 
0o5960 
005970 
0..598O 
005990 
01.6000 
0-.6O1O 
0..6020 
0o6030 
006040 
006050 
006060 
0o6070 
0v60«0 
OJ6OR0 
006100 
0061 1 U 
006120 
006130 
0o6140 
0/6150 


220 


JLu .  Pc  ■  .  _ ;  ' 


E.3  Subroutin*  PARMPLT 


SIIRoO'JTImF  0ARMPLT(Y5«YS*HT«PARM.NS*N> 

C  THIS  5(|qR0UTTNE  PLOTS  N  oARAMEIEBS  IM  'PArM*  S1ART1NG  AT  LOCATION 
C  <S.Y5.  mT  IS  THE  height  op  THE  LE  ITERS  IInCHESI.NS  IS  the  "STARTING 
C  LOCATION  ••  IN  PARM  At  WHICH  to  |  OOK  FOR  OATA  FOR  PLOTTING. 

OlMcNSION  PAPMI I ) 

IF  (N  ,LT.  0)  GOTO  ’000 

<DT=*S 

Y°T  =YS 

NSUNS-I 

00  100  1=1 *N*2 

n=wsi*i 

CALL  SYMOOLTXPT.YoT.MT.PAHMIin  *0E0*20> 

Y°T=YRT-?.*HT 
100  CONTINUE 
2000  RFTiiRN 

End 


E.4  Subroutine  FILL 


SUBROUTINE  FILL  (OaTA  TN*pARM*tND£x  *  I  SI  7£*NS.N) 

C  THIS  SUBROUTINE  SELECTS  OATA  from  DATAINItSIZE.3)  AND  PLACtS  n  IN 
C  P-0  ARRAY  parr  STARTING  AT  NS  ACCORDING  To  NUMBERS  IN  INDtA.  THE 
C  oaom  vAi  UES  A»E  CHACTfR-STRTNGs  SUITABLE  FOR  PLOTTING. 

OIMFNSION  OATA IN <1  I  .PARM ( 1 » . TNDEK 1 1 ) 

FotJiVALEMCE  (IE. Ft) 

1 1  =P*NS-7 

on  ioo  i=i.ao 

K  =  IM0EX(D 

IF  fX  .FO.  0)  GOTO  100 

II=lI»2 

51=w*tST7E 

*P=*-1*IST7E 

f  T  =  oA IA I M ( K2) 

RARMlII)=OATAINH<tl 
IF  f IF |  1000*1010.1020 
lftOO  ENCODE  Iin.l.PAPMdl*!))  UATAIN(K) 

GOTO  10(1 

1010  EnCoDE  (10.2.PAPM(IT*1!)  UATAlN(K) 

GOTO  10* 

1020  ENCODE  ( 1  (1  * 3. PARM (11*1)1  UATAINI*) 
lOO  CONTINUE 

N  =  I  T 
rftiiRN 

1  EORhAT(AIO) 

2  EoRrATIIIO) 

3  EOR'.’AT  (Gt  0.3) 

END 


0U6I60 
0u6) 70 
006180 
096190 
006200 
0 J6210 
006220 
006230 
096240 
006250 
006260 
0O6270 
006280 
006290 
006300 
00631CT 


006320 
006330 
006340 
OO63S0 
006360 
006370 
0J6380 
606390 
0  06400 
006410 
606420 
006430 
006440 
006450 
006460 
006470 
006480 
0J6490 
0O6500 
006510 
006520 
006530 
£>06540 
006550 
006560 
006570 
006580 

006590 


wjsir sbpsss* 


E.5  Subroutine  CFRAME 


SMHoOUTTMf  CFRA*'F  f  Index •  2M1 N •  ZMAX , CODF , NP*MP,TIM,PP1,C,Xs,YS, 

♦  XMlM,XMAX.YMlN.VMAX.DATAtN*XLtN.YLEN>O,C0D£> 

C  INDEX  !<-.  a  P-D  ARRAY  nF  TNTFGtRS  UN  SEQUENCE)  DENOTING  THt 
C  STARTING  LOCATION  Amo  N'|m«ER  OF  WORDS  IN  nATAlN  CONTAINING  Tut 
C  FOLLDMI'-'G  InfORMATIOM- 
C  !  U  FUNCTION  TITLE 
C  i,?  F-rITLE  LENGTH  luQooM 
C  p.I  oadAMETfo  LABEi 
C  >P  u-L'B:-L.  LENGTH 
C  3.  1  X-i  AHEl. 

C  3.2  <-i  ARfcl.  I  FNGTH 

C  A*  1  v-l  ABEL 
C  4.2  Y-I  ABEL  I  FNGTH 

C  C  IS  THc  function  N'IRmAi  T7ATION  CONSTANT 
C  xS.YS  Ic  THf  STARTING  POINT  OF  THt  FRAME 

C  T  IS  sll&POUTTMF  ASSumfS  THAT  I  HE  PRECEDING.  PLOI  WAS  terminated  at  THE 
C  i  ONER  P’Ght  CORNER  OF  Its  ALLOTTED  SPACE  (AND  THIS  IS  THE  NEW  ORIGIN) 

C 

OTMrNSIOH  OATAI'*l(  1  0n.3> .INDEX <4.21 

iMl-GEP  CCDDf.rCODF 

Trr.ii=G/oot 

C  first  Do  Aw  TITLE. SCALING  |NFO«PA»amEtER 
Nx=tN0EX(1 .?) 

IF  (NX  .CD.  1>)  GOTO  170 

CALI  SYMBOL  M  E0.A.SF6. .  I StO .DATA  IN ( INDEX ( 1 . 1 ) .  1  )  .OEO.NXI 
170  IF  (CCODF  ,EO.  I)  goto  pis' 

SYM-SYMQL (TIM) 

NXs.NDEX (P.2I 

IF  (Nv  ,  F  0 .  0 )  -GOTO  P.0(> 

cm. i  symbol  u  .£••  n.A.pFO..ito.uATAiN< index (2. i >  •  l  >  *oto >nxi 

goto  P  I  A 

210  CALI  SYMODI  U.SFO.fl.7Ftl,.ltO.NHPARAMETERfOta.<»> 

210  CAI  |  symbol ( 999F n .SooEG* • ItO.SYM.OEO* 10) 

21 S  IF  (CODE  .ED.  2HDN)  GOTO  22  0 

CALI  SYMBf)L<lE0.A.E;i..lE0*24HALL  FUNCTION  VALUES  HAVE»0tn.24l 
CALi  SYMBOL ( IEO.t.Sfu. . )E0*2GHHEFN  SCALED  ACCORDING  TU-.nt0.25) 
CALI  SYmbdl ( 1 .E0.7.4FF0 . . TtO . IHZ.OEO,  1 ) 

CA|  I  APP  )W(1.5.7.c».T.lR0.*iH  .0) 

EnCtDEU'UtSYM)  r 

CALI  Symbol  ( I  .6F0.7.AFD..  ltO.S.YH.OEO*  I  0) 

CALi  SYMBOL  <R99.F  t,oo9.F0». 1F0.9h* (Z-7MIN) »0E0,9> 

CAL'  PLot(1.9E0.7.Sft.31 
CALi  PLOTn.lEO.T.SFd.?) 

CALi  SYmbOI  (?E0.7,3Fl..IE0»llH(ZMAX-ZMlN)*Ut0*ll) 

EMCoOEU  T.ltSYM)  7M A x 

CALi  SYMBOL  < IE0.7. lEfl. , 1EO, 1 1HWHFRE  ZMAX**0t0*l 5 ) 

CAI.I  .  SYMBOL  <999Fn,9o9Ffi.  .IE0.SYM.0E0. 1  0) 

ENCODE ( I  a , l ,SYM)  tm I m 
1  FOP..-AT  (G»0, 3) 

CALi  symbol  ( IE0. 4. 9Fn..lE0, 11H  7uIN**OtO*ll) 

CALI  SYMBOL  1 999EO  ,9’POE  0.  .TtO  .SYM.  0E0  »  )0> 

CALI  symbol  ( IE0.S.7F9. .IE0*2)HAHE~TH£  MAX,  AND  MIN.  , 0L0 » PU ) 

IF  (CODE  .EO.  2hNa)  110.120 

110  CALI  Symbol  ( IE0 .6, SFr),  .  1E0*2aHVA|_UES  OVER  ALL  SURF  ACES«0FU.24> 

:  ’  G-T  T  o  100 

1 P0  CALI  SYm  ml.  <  IE0. 6.5ft..  1E0.21HVAI.UES  of  THt  SURFACEr0t0.pl  I 
no  contimuf 

C  h£xt  spr  THE  PLOT  0:,lGlf,i  AT  THt  ORIGIN  OF  THE  SURFACE  COORDINATE 
C  FRAME. IV’Aw  TiE  E PAMr  sND  LAREL  It. 
rpO  CALi  bLot  ( XS.YS.-3) 

C  t’iF  COObOINATF  frame  IS  drawn  WITH  ThE  TIC-MARKS  EVERY  TILU  (INCHES). 
ENCODE ( | '.1. SYM |  xMiM 
CAI.I  SYmtoL(0E0.-.2F0..TEU»SyM»0E0.10> 

NX=iNt£X<3.2) 

IF  (NX  .HI.  0)  goto  !«D 

CALi  symbol  (OEO.-.SFf),.  !E0«t)Al  AIM!  INOfX  (3, 1 )  .  1 )  .OEOtNX) 
l AO  EMCoDM  10,1. SYM)  «MAX 
Xot^OEO 
YRT=OF.O 

CALi  °LOT  (  XPT  r  YRT  .31 
00  ’3(1  T-l  .  100000 
N=I 

X“T  =  I*TTCI| 

TF  (XPT  ,GT.  XLFNl  GOTO  1000 


0**6600 
0*16610 
4**6620 
u 16630 
6 .6640 
0.6650 
0.*  6660 
0,6670 
0  *66A0 
0  *6690 
0*6700 
0,6710 
0.6720 
6.6730 
0*16740 
6»6750 
0,6760 
0O6770 
6  *67H0 
6 *6790 

Oj6»00 

0  6H|0 
0  16820 
0  268  TO 
0.6840 
6,6650 
0.6860 
0.6870 
6.6840 
0-  44.(0 

O'"  6000 
0,6010 
6/6920 
0,6930 
0.6940 
6.6450 
00 6960 
0.6V70 
0,6940 
0u6990 
6*17000 
6)7010 
6.7020 
0  >x  Til  10 
0 (7040 
6  J  7050 
6  .'7060 
6  >7070 
0u?6*O 
0. 7090 
0,7 1 00 
0U71I0 
6b7120 
0.7130 
0*1 7 1 40 
O'-  7  |  SO 
0.7160 
6' 7 1  70 
O.'TIRO 
6  "7190 
6'.  7200 
6*17210 
6 J7220 
0U72JO 
Oi>72*0 
0.7250 
#1.7260 
O')7270 
0>'7280 
0i*  7290 
6.7300 
6.7310 
6 (7320 
#'7330 


r -  j  ~i<*.  - - -  — 


78 


80 


88 


05 


105 


105 


no 


115 


180 


125 


na 

i'd'5 


140 

mi!) 


mo 

m2o 


mo 

n3<i 


mo 


CflUl  PLOT IXPT.OrO.2) 

C*Li'  “LnT(xPT>*.i.2i 
CALi  °LOT  ( XPT  »OrO.?t 
contI iuf 
<OTT=n«uril 
XpT-:XL£m 

C&Ct  PLOT  (XPT«0l'ft.2> 

CAL!  8VM80I.1XPT-. l*SVM.oe,P»lO> 

CALi  “LOT IXPT.O ■ fl.3» 
rjft  '*0  ml  •1000*50 
M=1 

YPT  =  I«T1PII 

IF  (YPT  .RT.  YLFMi  GOTO  lulO 
CALI  °LI5T!XPT«Y  'T.2l 
CAL!  “LOT  I  XPT-.  1  .  yPT.?l 
CALI  °LOT (XPT <YPT.?1 
nspimiF. 

VPTT=N*TtCII 

y°i=yl£m 

CALI  PLOT  (  XPT  .YPT « 2) 

00  i 50  rni. 100050 

M=[ 

XPmXPTT-T«TIClt 

if  ixpt  .lt.  oeoi  goto  i02o 

CALi  PLOT (XPT.YPT.2l 

call  plot  I XPT.YPT-. 1 .2) 

CALI  PLOT  I XPT.YoT .2) 

C.ONTlOIJF 

XamO"fl 

CALi  PLOT IXPT. YPT. 2) 

5wCoOF<13.1.SYMT  VMAX 
YpT4=YPT-.5 

IF  (YPT.GT.  9.8)  YOT8=9.0 

CALI  SYMUIH  (-.mO.YPT8..1t0.8YM,ooe0.lO> 

CALI  PLOT  <  0EL< .  YPT  .3) 

no  mo  T^i.iooooo 

YOT=YOTT-I*TlCU 

TF  (YPT  .lt.  OEO)  goto  10J0 

CALI  °LO T  (XPT. Y  .T. 2) 

C»LI  PLOT  IXPT*. I .YPT.?) 
cau  PLOTTXPT.YPT,?) 

CONtIDUF 

CALI  PLOT (OEO.OFO.2) 

FMCoOFim.I.SYM)  YM  Til 

CALI.  SYMPOL(-.lr0.0F0..IEO.SYM.90..10) 

MXs|Nr)£X(4.21 

IF  (NX  ,TI),  01  goto  190 

CALi  SYMBOL  (-.NFD.Of'o*.  lEO.OAT  AIM(INDFX(4»1 )  .11 .90. *NX) 
CALI  PLOT (OEO.QFO.3) 

PCTmPN 

EMIT 


007340 
007350 
007360 
0O737O 
007380 
097390 
0O7400 
0U7410 
0U7420 
007430 
007440 
007450 
0u7460 
007470 
007480 
007490 
007500 
QU7510 
0O7S20 
O»7530 
007540 
0O755O 
0U7560 
•  Oj7570 
007580 
007590 
007600 
007610 
007620 
007630 
007640 
007650 
007660 
00767O 
007680 
007690 
007700 
007710 
097720 
007730 
0)7740 
007750 
007760 
007770 
007780 
007790 
007800 
007810 
007820 
007830 
007840 


E.6  Subroutine  INTERP 


10 


8115  aOIITTNE  I NTEPP I CCOf'E . CODE  .  T  L  AG  .  I C  ApO  1 
CO“''l>N/LFT/LETTFP(RA) 
r)TMFNSIO*i  CODE!  7 1 
I  OGTCAL  flag 

TNTFGEP  CCODE *8L  A*‘K .  o.l.lR arfn.ro apen. y  *Drt  _ 

DATA  8LA  ik.C.L.I  PaRFM.BpAWLN.Y .O.E/OOnOOOOOOOOOOOOOOObbb. 

♦  oao40oooaoooooo  ,05039. onooooooooooooooqSUb.oooooooooooonooooosiB 

♦  .('0''i)0000000000t)05059«.r)0055nb0000080oqw0316. 

♦  oo(i'-oq6o''00ooooooA048.oooqDqo5qqoOooooqou58/ 

CCOn£=2 

COI5f<2*=1  .OP. 

on  AO  1  =  1 .80 

LFTtEP(t;=HLANK 
COM* I NUF 


007850 

007860 

097870 

007880 

097890 

0O79OO 

007910 

007920 

007930 

007940 

007950 

007960 

007970 

007980 


i'F. 


223 


IS 


20 


25 


30 


35 


45 


55 


SO 


65 


70 


75 


BO 


Il5 


InO 

1 


,NE.  S(  ANK )  GOTO  no 


no 

no 


C  SET 

ni 


134 


173 


172 


no 

no 


c  te 

C  THE 


140 


170 


1  =>0 


no 


REAnIICARn.lt  (LETTER  t  T  1  .1  =  1. DO) 
n  iEoF((CARon  uSrioo 
Fl.A<-.=  .F. 

Min  110 
CONTINUE 
E7P'<AT(«7R1  1 
0(1  120  1  =  1.80 
N=I 

TE  (LETTrO(I) 

CONTINUE 

TE  (I  .fn.  811  GOTO  110 

if  (lf.tt=p<ni  .eo.  o  CC0UE=1 
IE  iLETT=0(N«1)  .eO.  Lt  CC00E=3 
Onto  M31.134.mi  CCODE 
DEE  aUI.T  it ALIJES  OF  ConE 
COO=(ll=l  .OR.  f' 

CO0=t7)=10  .OR.  0 
COOT  14) SOHNA 
Cnl)r(5)=10H 
ROTO  13? 

CSOr  1 1 )  =  1  ..OR.  n 
CODE  (7)  ='.8. 

C00=(4)=7HNA 
ROT  n  13? 

070=111=1  .OB.  o 
const  31  =1  HX 

cnns(4i=i  .or.  " 

CODE  (51=1  .OR.  II 
COOE (SI =7HMA 

Cnnr(71=lOS 
nn  ’4o  t  =w . 8 o 
«=i 

TE  fLETTEB(l)  .80.  I  OAREN)  GnlO  150 

CONTINUE 

TE  (I  .EO.  811  on TO  110 

CALI  NUMMtConEdl.S.ll  „  ,1U1 

4=!'  THEN  a  right  PaRem  has  BEFN  FOUND  .OTHERWISE  IT  RETURNS 
POSITION  OF  THE.  Comma, 

TE  iM  .Em.  01  GOTO  1 1 C 
CALI  MUmp 1 CODE  t?l.M,ll 
IE  (M  .Ft.  01  GOTO  110 
GOTO  (lsn.I70.n0i  nrpriE 
CALI  NUMRtC.OOEni  .M.l  1 
IF  tM  .Em.  0)  GOTO  110 
Cnrir  (41  =2HMA 

TE  tLF.TTEP1M.lt  .EO.  ni  C0UE(4)=?HDN 
IF  iLETTER(M.2l  ,eq.  E)  CUUE(4)=?HNE 
IE  (LETTER (M.3)  .rq.  ?7RI  C00t(5l=2HSD 
r.nlo  1  Li 

CAI.I  NIIMti  (C.nnEni  .M.?t 
T e  (M  .EM.  01  C.  ’To  1 J  n 
IE  tLETTEB(M*2)  .EO.  E*  C0UE(4)=?HNE 

gito  no 

IE  (LETTERIMMI  .eo. 
n  (LETTS0 ( M*2)  .EO. 

TE  (LETteuim.1) 

M=M*2 

C  AL|  MUMR  1  CODE  ( 4 1 ,  M ,  1 1 
TE  (M  .EO.  01  fi’Tn  no 

cai.i  NUM.i(cnnE(7i  ,m.i i 

IE  (M  .EO.  0)  GOTO  tin 
CnilE(S)  =  -HNA 

TE  (LETTER(M.l)  ,eo.  01  CODE (bl=?HDN 
IE  iLETTer  (M«2)  .EO.  E)  COLIE  (SI  =?HNE 
IE  (Le;TTEO(M.3)  ,eQ.  ?7H1  CODt (7)  =2HSD 
RETURN 
EMU 


Y!  CODE ( Jl = 1 HY 
OPARtN)  GOTO  110 
,e0.  ESEIl  ‘  M=M-1 


507990 
008000 
008010 
OoR020 
508030 
008040 
008050 
008060 
608070 
(108080 
608090 
0  08 1 00 
008110 
008120 
608130 
008140 
608150 
008160 
608170 
008180 
508190 
008200 
508210 
6  J  8220 
008230 
008240 
008250 
608260 
008270 
008280 
008290 
008300 
008310 
008320 
608330 
008340 
608350 
008360 
668370 
6083B0 
008390 
008400 
608410 
008420 
008430 
608440 
008450 
008460 
008470 
008480 
008490 
008500 
008510 
008520 
0085.70 
668540 
008550 
008560 
008570 
668580 
008590 
008600 
008610 
008620 
008630 
608640 
608650 


E.7  Subroutine  NUMB 


00 8660 
0JB670 
0 1/868O 
008690 
Ou8700 
6  u  8710 
Oo87?0 
0o8710 
0u8740 
0087S0 
668760 
6x8770 
608780 
6,18790 
6x8800 
Uu88l0 
008820 
608830 
6-8840 
0C'R850 
6  08880 
6 08870 
O'.!  8880 
608890 
6,18900 
6x8910 
6:,.8980 
0i'89?8 
608930 
0-;H940 
668950 
6x0960 


SilH  -0HTT9C  NUMBIPaRam.m.IFORmat) 
rrSM'-0M/LtrT/LtTTFR(8,) 

INTEGER  »RARFN.''0'/MA 

n,4T «  wt>A  jFk|.C()M-iA/n''nOOOOOOO,'OOoouo05?H»OOUOOOOOOOOOOOOooo56B/ 
IO»r.'A8=l  *H 

C  iFoR-iat  IS  ThF  FORMAT  CooE  FOR  OF.UU)ING-i=>INTlGER>?=>FLOAT. 

C  •/  TS  TH-  “OSITIOn  IM  iETtfp  OF  A  'DELIMITER*  SUCH  AS  (  OR  *.  NUMB 
C  “ET'IR'lS  M=o  IF  A  )  IS  FOUND. 


IF  fLFTT-R(I)  .rO.  ROAPFN)  l  1  U .  1 
I  I  3  M=  j 

S'To  l  30 

|Xij  r  F  fLF  TTCP (  II  .H),  FOMMAI  134.1S4 
|Hx  MUM-NUM*! 

C  sToRE  Tj£  might  MOST  character  Farm  i.ETT.Ep(I)  at  CHARACTER 
C  *.li|M  OF  I  PARA1!  I 

T o a  > A  ASM* PUT X  <L‘  TTEO(T)  .  IHARAM.NIIM) 

I'rt  CoMTlfiiiF 

no  IF  il  .FA.  Ml)  GOTO  I  (SO 

TfitFoRmaT.Fo.I)  lT.i.mO 
17'!  CALI  R  HIST  I  I“ARA'<1 

l)FF. 'OE  I  tl  .  1.  1PAP/.MI  o«aAM 
1  F  .ATI  I  Id 

GOI-i  IRA 

1>’0  CALI  ‘  IU'T(l“AWAl«\ 

OFF  'OF  M  3.  ?.  IPntMMlHARAM 

?  FO-.  A  T (FI  9.0) 

|M)  RFTnR  i 


E.B  Subroutine  ARROW 


0,19970 
O'  8940 
0 18990 
6.9000 
0  I9OI0 
fl'i9(>?0 
O  >9030 
6, 9040 
0.90S0 
6  .0-0 
6  90  70 
9  >90*10 
0. 9090 
0  .19100 
6  91 10 
6. '9 120 
619130 
6  '9140 
6J9IS0 
6..91F0 
6x9170 
6x9180 
61-9190 
O'.  9800 
6-9210 
6x9220 


Si ih  'OUT T *'F  ARRO  r  «r.vd.l  .  |hetad«i>8EL.NC) 

THF’A'  If  THF  ARRnW  A*'r,|  £  wot  X-aXIS  IN  DLUkEES 
|_  If  THF  LENGTH  of  TMF  AR RAH  IN  INCHES 
THF  LOCATION  OF  T'>F  ARROW  11°  IXO.YP)  IS  RETURNED 
lC  IS  Im£  NIIM9FP  OF  CHARACTERS  In  THE  ARROW  LABEL 


OtMi-NSION  LABEL  r  1 1 
THFiA  =  IHi-rAi.)»3.  !AtS')O7/)80. 
X<“tL“COSCTBfTA1 .VP 
vvo-L»S|’i  (THFT  A )  »v“ 

<1  =.2«L«n)S(THEIA_.i74S)*XR 
TL=.^*L*SIN( THE r A-.I 74Sl .TR 
X'!=.2»L»fOS(THE  I  A..1T4S,  .XR 
YU*.2»L»SIN  I  THETA..  1745)  .TR 
CALI  “Lor  f  XP.YR.3i 
CALI.  “LOT  (XXR.YYR.2) 

CALI  DLOT  I  XP.YR  •  3> 

CALI  “Lor  ( XL  *7L  «“> 

CALi  “LOTtxP.YP.3i 
CALi  “Lor  (XU. TO. “i 
XH=.?5»L»COS(TH. T»..4A73).XP 
YII-=.25»|.»S1N(THFTA«.f.RTt).YO 

IF  (NC  .IF.  0)  .OrO  1400 
CALI  SY'XHOI.  (XU.YII..I  ,L  ABEL » Tut T A0.NO 
I  90  RFT'iRJ 


E.9  Subroutine  APLACE 


0V9230 
6>92A0 
009250 
6j9250 
0  >9270 
0  ;92H0 
OU9290 
0u9300 
6 V93 1 0 
0J9320 
6.19330 
0J9340 
609350 


SUBROUTINE  APLACFlXo.YP.XLENl  •  YLFN)  .ThETA2) 

C  THIS  SUBROUTINE  FINOS  Imp  X.Y.  COUROlNATES  (XP.YP)  FOR  THE  TlP 
c  oF  THP  iRROw  WHICH  TNnlCATES  IHE  VIEW  ANGLE  (THETA2-DEGREES) 

C  FOR  PERSPECTIVE  PLOTS 
X>=.5»X|  FNI 
YPs.5*YLSNl 
°Tlo0=3.l4l5927/in0. 

TH=oI I80OTHETA2 

R=SoRT  < fx?..S)»*>2.(YP*.S)*»2> 

X’P=Y2»R»cnS(TH> 

vo=v2*R*sin(TH) 

pftmRN 

EMO 


E.10  Subroutine  RD1 


I 
NP 
Y 

TIM 
h)D 
XMI'I 
X«AY 
HUE { J) 
ISW  ACTS  AS 


row  MUMPEo 
TOTAL  N '.  Or  ROWS 

y-VALUE  CoR°fSPonUING  TO  THIS  ROW 
SURFACE  PaRAYFTFR  VAl.UE  (E.G.  TIME) 

TOTAl  NO.  of  COLUMNS 

UAI  UE  ASSOCIATED  PITH  THF  FIRST  COLUMN 
WAUIF  ASSOCIATED  PITH  THF  LAST  COLUMN 
MU  SURF  iCr  f(  fmfNIS  OF  The  I-TH  ROP 
A  SPITCh  to  CONTROL  THE  ACTION  OF  HOI  AS'  FOLLOPS- 


ioa 

no 

no 


I SW= |  =  »  RETURN  7MAX.7MIN  OmLT 
ISw=p  ■=>  RETURN  SURFACE  7  and  ZMAA.ZMIN 

ISW=3  =>  RETURN  SURFACE  7  RoRUtRFl)  BY  7EROES  ANU  ZMAX.ZMIN 

NCTeNhsT^MF  FIRST  RFCORO  pEAU  IS  ASSUMED  TO  INCLUDE  THE  HcST 
•ROP'  OF  THE  SURFACE 

RE AO (ITT)  I.NP.Y.tIm.mp.XMIN.AMAX. (BUF 1 J>  » J=1 *MP) 

IF  fEOF I IT3) )  110.170 
F|_AO*  .F  , 

GOTO  1000 

IF  (ISW  ,FO.  4)  GOTO  ?3A 
1 1  =  I  ♦  1 

7(11.1) =7(Tl.MP.2l=0. 

IF  II  .Eo.  1)  210,270 
7uIm=ZMAX=BUF ( 1 1 
YmIm=Y 
MD2=MP.2 

on  10  Js|.MP2 
7<1.J>=0. 

IF  ll  .EO.  NP)  YMAX=Y 
OO  1 60  JsI.MP 

7T=uUF< J) 

IE  (ZT  .1  T.  ZMIU)  ZMIN=ZT 
IE  iZT  .OT.  ZMAX)  ZMAX=ZT 
GOTO  (16D.170.IH01  TSV 
7(I.J)=ZT 
GOTO  160 
7(I1.J«I)=ZT 
GOTO  160 


170 

no 


226 


SUBROUTINE.  RDI  (  tT3.Ud.mp.ZMAX.ZMTN.  ISw.FLAG.  TIM.XMIN.  AMAy  •  YMIN. 
♦YMA. ) 

C0M"0N  7(103.103) 

oimcnsiom  hue  a  on 

C  tHIS^SUpROuTTMF  FILI  S  fJD  THF  •SURFACE  ARRAY*  Z(...)  AND/OR  KyNUS  THE 
luRFACF  MAX.  ANO  Ml  •.  (7m.aX.ZM1N).  IT  ALSO  RETURNS  THE  SIZE  nK  THE 
SURFac’f  <MP  «  NP)  AMO  THF  SIlRtACF  PAPAMETFR  VALUE.  TIM.  THE  lUGICAL 
uArIablf.  F i  a G ,  IS  .Tour.  Until  AN  EnO-OF.FILE  IS  REACHED  AT  PUICH 
POINT  IT  becomes  FAI.Sf,  FUCH  UNF()HMATTED  RtCORO  OF  THE  INPUT  FILE.IT3. 
IS  ASSIJ  'EO  TO  RE  OF  ThE  FOPM- 


0u9360 

6»  917Q 

0-9390 

6(9400 

6..  9410 

0»94?0 

-1 

0u9430 

0  -944U 

6 J94S0 

6^9460 

6<>94  /0 

Uv94«0 

6>j9490 

.  a 

V  9500 

( 

6  J9S10 

OV9S?0 

in 

6^9530 

,-m 

6'j9540 

l)*95S0 

UU9S60 

0-9570 

U09SHO 

U.  i9«j*5 

0U9590 

3 

0-»9600 

m 

6*9610 

6<j96?0 

U-9630 

0 J9640 

009645 

0O96S0 

6*9660 

079670 

0*9690 

6  i  9690 

0i>9700 

0^9710 

6  l'  9  7  2  0 

*  1 

6*9730 

6 J9740 

j 

Uu97S0 

O'  97*0 

•  jii 

6-9770 

6 >97*0 

6-9790 

6*9800 

0J9RJ0 

6'J9M20 

■; . : 


oorp.to 

0u9940 
<)y9H50 
0119840 
6  98  70 
009880 
009890 
009900 
039910 


•LT.  NP>  GOTO  ire 
Mono.  1000.  loO.lODOt  ISR 


E.11  Subroutine  CLEV 


0U9920 

0u9930 

009940 

0U99S0 

009960 

009970 

009980 

0o9990 

010000 

010010 


SURoQUTINE  CLS'.'tNi  E0,7MAX»ZM|N.Z|  EVS) 

OfMcNSIOM  >LEVSI1  1  . 

C  THIS  SUBROUTINE  RETURNS  MLEV  tOUl-SOaCEO  CONTOUR  LEVELS  BtTOEtN  ZMIN 
C  AND  7mA  v  (8IIT  NOT  ImCi  UOTNA  ZMINi 
flEL  =  (ZM«<-ZMIN)/Ni  EV 
00  >00  TM.NLEV 
?LEoS(!)=ZHlN*I»OrL 
ICO  CONTtNIlE 
RETURN 
ENO 


E.12  Subroutine  SKIP 


010020 
010030 
010040 
010050 
010060 
010070 
01 0080 
010090 

Oioioo 

010110 

O1012O 

010130 


SIIHoOUTlME  SK1PMt*oc«NSK1R*EL»G,N) 
LOGICAL  rLAG 

TE  rNSKTo  .EQ.  01  GOTO  120 
NREa*N»NSKIP 

no  too  im.nrec 

REAn ( ITAPE1 

IF  (EOF(tTAPE)I  HO. 100 

continue 

GOTO  120 
FL»a*.F. 

RFTuRN 

ENO 


010140 

Oioiso 
0 1 0 1 60 
010170 
01O18O 
010190 
010200 
010210 
010220 
010230 
010240 
010250 
010260 
010270 


SUBoOUTInE  EACE(Xp1.YP1,ZPP.THETA1.THFT*2,NREFIN) 
DIMENSION  R13.3)  „  . 

COMuON/RLOCK3ZIMUM.  IMUN.XBlN.THIM.nX.nT.S9I » IT6 
COMMON  n»T*(103.1o3.t>l 

RRlTEMTS.lOl) Xnl.TRl.ZPP.THEIAl.THET A2» INUN. JNUN.NRET IN 
FORMAT <3 1F6. 2.1 X 1.2 1F7. 4. »X).JI 13.1X11 
YES*3HYES 
YNO=2HNO 
INUm>IN|.in 
INUm«JNUN 
YO*YPP“Vol 
XP»XPP=XPl 

XB  =  ZPP«COS(THETn2)/TAN(THETAll 
YR  =  ZPR«SIN(THFTS21 /TAN( >HEtAI) 


isSS; 


0102H0 
610Z90 
010300 
010310 
010320 
010330 
010340 
010350 
010360 
010370 
010330 
0103=10 
010400 
010410 
010420 
010430 
010440 
010450 
010460 
010470 
0 1 0480 
010400 
010500 
010510 
010520 
01 0530 
010540 
0 10550 
010560 
010570 
010580 
010590 
010600 
010610 
010620 
010630 
010640 
010650 
010660 
010670 
0 1 0660 
010600 
010700 
010710 
010720 
010730 
010740 
010750 
010760 
610770 
010760 
010790 
010800 
010810 
010820 
010830 
016840 
610850 
010860 
010870 
O108RO 
010890 
016900 
010910 
010920 
010930 
010940 
010950 
010960 
010970 
0109«0 
610990 
OliOOO 


XNAc.  =  Xop-XB 
Y4A->  =  YO°-7H 
<do-  =  Xpa-XBAR 
YDP  =  Yao-YBAft 

ms  =  SOnT  (XPP»XPd»YDP*YP8*ZPH*ZpP) 

9(1.11  =  -SIN<THFtA9| 

9(1.2)  =  COS ( THETa2i 

9(1.3)  =  0.0 

9(2.1)  =  -SIN  (  T'IEtAH  *Cf4S  UHE  I  A2) 

9(9.2)  =  -SIN(TMFTAt)«5[N(THrlA2) 

9(2.3)  =  COS(THFtU) 

9(3.1)  =  COS(THrTAl)»C05(Ttl£T621 
9(3.2)  =  COS (TH" TAl ) *5lN (1BETA21 
9(3.3)  =  STN  ( THFT  Al 1 
nn  =>0  1  =  1 .  INI.IM 
A  =  FLOAT (I) 

Y  =  A-YRA9 
lln  a<|  J=1  .  JNIJM 
9  =  FLOAT  (.)) 
x  =  b-xrao 
;  =  OATA(T.J«ll 

OATA(T.l.l)  =  9  ( 1 . 1)  *X  «  8  ( 1 «  2)  *Y  •  R  ( 1  *  3)  *2 
OAT  A  IT*  1.9)  =  ft(?.l)«X  *  «<2.2)»y  ♦  P  (2*3)  *2 
7  =  flTS-(9(3.1)*X  «  0(3.21  #Y  ♦  ft  (  3. 3)  »Z1 
DATaM.'J.I)  =  OATM!., .1*11/2 
2T  nATA(I*J*’l  =  OATlU. 3*21/4 
1 M I J  Y 1  =  TNIIM/2 
1*911**1  =  iMMM/2 
fF  fY9  .!  F.  1*0)  6(1  TO  45 
TF  I YP  .of;  FLOAT  IlMNM)  I  00  TU  34 
IF  (XP  .if.  1.01  nO  ro  40 
IF  (XO  .OF.  FLOAT  IJMIIM)  )  iiO  TU  34 
3n  .nn  25  J=1  *  JNIJM 
no  -iS  1=1  .  INIIM1 
T 1  =  OAta(!.,I*1) 

T9  -  DATA ( 1  * J*2) 

OAT  All  *.l*  1  1  =  04TA(?*JIJM. 1-1. .1*11 
OATS  (I*.)*?)  =  DATA  (IMnM*l-l*.l*H) 

DATA  ( I  Ni  Im  *  1  -  T  »J.  1 )  =  T  1 
35  DAT  A  <  1  Nl  |m  ♦  1  -  T  *J<2)  =  T? 

nn  to  45 
39  X°  =  YES 
*,1  tTf.iP  =  tNIIM 
,  t  *1*  1'  *  =  .  (Ml  IM 
IMIJ  A  =  tTFMP 
ITEi'P  =  MAX  0  ( 1NUM. 
nn  /. 2  1  =  1  .ITFBP 
in  a  I  3=i.i 
T 1  Y  n»T 6  ( T  *-»*  1 ) 

T9  -  nATA ( I  * J.2) 

DAT  A  (1*1.1)  =  DATA!  I*  T  •  1 1 

nAiAii.i.D  =  t  ) 

DATaU*  t.2)  =  Data!  I.T.?) 

41  DAT*(  ( • T . 2 )  =  T9 
4=  CONtIMUF 

!F  rX9  . fo .  YES)  r,0  TO  20 

45  T  f  (DATA(l.l.l)  .IT.  DATAU. JNUM.l)  )  r.O  TO  46 

TF  (OAtA(TIMUM*JA)llM*l)  #LT*  DAIAU.JNUM.il  )  6U  TO  SO 
no  TO  9a 

46  IF  (DATA  ( 1  .  JMUM,  1 1  ,LT.  DATA!  INUm,  JNUm.11  1  60  TO  50 
60  tO  99 

58  nn  55  1=1 .TNKM 
nn  cs  j=i .jNUMi 

T)  ^  OATAd.J.ll 
T9  -  DATA ( I  * J*2) 

OATA  ( I .).  1 1  =  DATAU.  JMIIMU-J.I) 

OAT  A  ( I  *  J.2)  =  OATaU.JNUMU-  1.2) 

OATAU.JNIIM.l-J.il  =  T1 
55  DATA  (?  .J'llIM.l-J.?)  =  T? 

92  CALI  MIOF 

looo  continue 
return 

.  ENO 


'  vi£: 


E.14  Subroutine  HIDE 


] 

5'Mt.0UTI"F  HIDE 

ouoio 

COm./ON  OAT s  <  Iu3.1n3.  =  )  /BLOCK  1 /TEST <500. 2)  .1EST1  (500.?)  .NuM/BLOCKE/ 

011020 

!=>(?*  f0{?»  .  JC‘lt 

011030 

COM. .'.On/Hi  OCKT/IBIim.  iMllu.XMlN.YMlB.DX.nY.SWl.IT6 

011040 

5 

LOGICAL  "UJ 

011050 

SI  /r=8. 

011060 

KFL  <\G  =  . 

01 1070 

FL'O  =  » 

011020 

IF  (Swtl  GOTO  2'0o 

011090 

1  * 

Sum  L  =  OATAIl.t.Ll 

onioo 

11  is  =  Small 

011110 

fin  IS  .J=  1  .  -  IN DM 

011120 

on  c  1=1 . TNUM 

011130 

IF  (OATA(T.j.l)  ,i  T.  SMALL!  SMALL  =  DaTAU.j.I) 

011140 

IS 

5 

[f  iDaTaH.J.1)  .sT.  RIG)  Bir,  =  OATA(T.J.l) 

011150 

xmT-i  =  small 

011160 

n»  -  (bta-smalli /si?= 

011170 

SMAl  L  =  "ATA11.I.9) 

011180 

8YG  =  Small 

011190 

?.: 

on  t  i=i.t  ni)m 

011200 

DO  A  .J=1.JNIIM 

011210 

IF  (DATAd.J.ai  .1  T.  SMALL)  SMALL  =  DaTAU.J.2) 

011220 

t> 

IF  (DATA  ( T  .J.2)  .  sT .  Sfr.)  Blr,  =  datA(i.J.2> 

01 1230 

ym[m  =  small 

011240 

?s 

OY  =  1 B 1  f, -SMALL  t  /s  1 7C 

011250 

o  =  nr 

011260 

IF  (Ox  .sF.  OY)  0=Dv 

011270 

OY  I  0 

011280 

o  <  =  n 

011290 

30V 

SOT A  A010 

011300 

?A0f> 

on  io  Isi.jnom 

011310 

tfstU’D  =  OATA(l.t.l) 

011320 

TFSt(1.2a  =  DATA  (  l  .  t  •  ?)■ 

011330 

r 

TfstI  (I  .1)  =  TESTi  !.->) 

011340 

35 

CALI  LINFITEST.TEfTI  ..INIIM.  1.0*0. XMIN. OX.  YMIN.DY.O.) 

0113S0 

1  =  1 

011360 

BUM  =  JM"M 

011370 

IDIjr  =  « 

011380 

I COT  =  2 

011390 

4-? 

ICOr  =  JCIJT  ♦  1 

011400 

kflaO  =  A 

011410 

IFLaG  =  .1 

611420 

IF  (JCOT  .FQ.  JBIlM.n  r.o  TO  100 

611430 

3' 

1  =  0 

611440 

45 

3D  =S  1=5. NUM 

611450 

IF  (IOATaMCOT.  ICllT.1)  .Lt.  TtSKl.lM  .AND.  (DATA  1 ICUT. jCUT. 1 ) 

011460 

l.r.E.  test n*l*li)i  on  td  Ji 

011470 

IF  < (DATA (1COT.  ICOT.1)  .LT.  TtST(l.l))  .OH.  < DAT A < ICUT » JCUT . 1 > 

611980 

l.F.T.  TEST  (I-!  .1 1 )  )  so  TO  JS 

011490 

57 

3 1 

0  =  <TEST(T.?>-TFsT(T-],2>>/LIE5t(I.1>-TEST(I-1.1>> 

611500 

C  =  TfSTIT.2)  -  RfTFST(I.I) 

011510 

Y  =  fl»OATA  ( [CUT.  ICUT,  1 )  »  C 

011520 

IF  (Y  .1  F.  DATA(ICUT..)CllT.2)  )  GO  TO  3S 

011530 

1  =  J  »  1 

011540 

55 

.15 

CONTlBUF 

011550 

IF  (2* (.1/2)  .EO.  1)  GO  TO  120 

011560 

GO  *0  u0 a 

011570 

\no 

(COT  =  J 

011SR0 

ICUT  =  KILT  *  1 

011590 

60 

IF  *  ICUT  ,NE.  INIIM.IL  GO  TO  OO 

011600 

hfihhb 

011610 

i?0 

IF  (JCUT  .EO.  lt  r.O  TO  200 

611620 

Pill  =  nATAIICUT.lCllT.il 

011630 

0(21  =  IHTAHCUT.  lC'IT-1.1) 

011640 

65 

Oil)  =  DaTAUCUT.  iCOT.2) 

011650 

0(2)  =  OATAUCUT.  tCUT-1.2) 

011660 

IF  (P<2)  .GE.  6.01  on  TD  130 

011670 

X  =  P(2) 

011680 

Y  =  0(2) 

611690 

70 

GO  tO  2oo 

611700 

no 

CAL'  OHA  J(X.Y.K.KTLAG) 

011710 

IF  (K  ,r,T.  NtlM)  GO  rn  365 

611720 

2n0 

oil  i  =  DATA!  ICUT.  iCiit.  1 1 

611730 

o|2\  =  OATA(ICUT-|.irtlT.|l 

011740 

•  V* 


6U750 

011760 

011770 

011780 

011790 

011800 

011810 

011820 

011830 

011890 

011850 

011860 

011870 

011880 

011890 

011900 

011910 

011920 

011930 

011940 

011950 

011960 

011970 

011980 

011990 

012000 

012010 

012020 

012030 

012040 

012050 

012060 

012070 

012680 

012090 

012100 

0121)0 

012120 

612130 

012140 


om»  =  niTAocuT.  icht.2) 

0  12)  =  D4TA<ICUT-I  •  iri)T.2l 
IF  (PI2)  -GE.  6.0)  60  TO  210 
X)  r  P(2) 

V 1  =  0(2) 

60  TO  30' 

210  CAL)  nS»4v»Xl.Yl.J,JF|.Afi) 

IF  (J  .r,T.  MUM)  SO  TO  365 
3*0  )F  1JC1IT  .ME.  1)  o.O  TO  305 
K  =  1 
so  *0  314 
3tS  CONTINUE 
6A0  foPmAT  I5H  HEWE) 

IF  (KFLAS  .eo.  I)  so  TO  314 
no  =  10  1=1. NUN 

IF  MX  .FO.  TEST(T.ll)  .  AML),  (Y  .EG.  TEST  ( 1 . 2)  1 )  GO  TO  313 

310  CONTINUE 

3 1 1  FORMAT  11OH  310  EoROP) 

SO  *0  365 

31 3  K  =  I 

314  IF  fJFUAS  .EO.  1)  GO  TO  320 

no  =  15  t  =  1 . NtJM 

JF  MX  1  .EO.  TEST (1.1)1  .and.  ( Y 1  .EQ.  TESI(I«2)1)  GO  TO  318 
3)5  CONTINUE 

316  ESP  .AT  MI)H  316  FoPO°) 

GO  =0  365 
3)8  i=I 

C  IF  IfLAG  t 5  SET »  WF  ARE  LOOKING  AT  THE  BACK  OF  THE  SOUAHt  PIECE 
C  ''HOSE  CoPNEP  TS  OATA(TC'IT.jrUT) .  IN  THIS  CASE  WE  DO  NOT  UHAw  THE 
C  I.INE 'to  DATA  MCUT*  JCUt-1  )  •  AND  WE  DO  NOT  INCLUDE  IT  IN  THE  SKYLINE. 
C  t.f.  t£aT. 

320  1FLAG  =  .3 

IF  1 JFLAG  .EO.  0)  J  =  .1  ♦  1 
IF  |J  ,i.T.  K)  IfLaG  =  1 

IF  Ml  .fO.  .')  .AMD.  (ARStXl-lEST(J.l)l  .Gt.  AhS  ( X-TEST  (,|.  1 )  1 1 1 
1IFl»G  =  1 
IFL"G  f 

kfl*g  =  3 
ti  =  0 

no  t3o  i=j.num 

II  T  II  »  1 

TfstKU.I)  =  TfrtK.I) 

130  T-'6Tl(I1.2)  =  TF6T<r.21 

IF  / 1 F L A s  .EO.  0)  GO  TO  331 
K  =  J 
X  =  X) 

Y  =  Y 1 
SO  TO  335 

331  IF  (JCUT  .NE.  II  so  TO  33s 
K  =  K  -  1 
GO  T0  3A  3 

335  TFSt (K , 1 1  =  X 
TF6t(K.?1  =  Y 

340  tfs+(**1.U  =  DATA(TCI)T.jLUT.l) 

Tfst(k*1,2I  =  DATa(TCIIT.JCUT.2) 

TFSt(k*2.1)  =  X! 

Tfst(k.2.2)  =  Y1 
K  =  K  ♦  3 

IF  (J  .Fn.  (NUM  ♦  111  GO  TO  350 
00  345  1=1 ,] J 
K  =  K  ♦  1 

TFSt (K, j )  =  TEST1 (1,1) 

345  TFSMK.2I  =  TEST  Ill'll 
6*1  F.3R  'AT  (!H  ,3114) 

350  MUM  =  K 

IF  r JCUT  .EO.  11  SO  TO  355 
IF  f IFLAG  .EO.  >1  SO  TO  355 
°(2l  =  X 

0(2)  =  Y 

OLI  LINF(P,O,2.1.0.!).XMjN.nx.YMIN.DY.0.> 

355  P(2)  =  XI 

0(3)  =  Y1  , 

CALI  L  IMF  (<=,0.2.1  .C.A.XMIN.DX.YNIN.DY.O.) 

355  sn  to  20 
4*0  COJ-IMIE 

4 ' 1  FOP  ‘AT  (AH  400, 2X. 113) 

IF  (JCUT  .FO.  1)  SO  TO  600 
Nil  =  OATAdCUT,  |ClT-l,lI 
0(3)  =  OAT  A  (  I  CUT  .  lCllT.ll 


012150 

012160 

612170 

012180 

012190 

012200 

012210 

012220 

012230 

612240 

612250 

012260 

012270 

012280 

012290 

612300 

012310 

012320 

012330 

612340 

612350 

012360 

612370 

612380 

012390 

612400 

012410 

012420 

012430 

012440 

012450 

012460 

012470 

012480 

012490 

012500 

012510 

012520 

612530 


0  1 2540 
012550 
012560 
012570 
0125*0 
012590 
012600 
012610 
012620 
012630 
012640 
012650 
012660 
012670 
0 1 2680 
012690 
012700 
012710 
012720 
012730 
012740 
012750 
012760 
012770 
0127*0 
012790 
012800 
012810 


DIM  =  ruTJUCOT.  (Cl IT—  1,21 
3(21  =  noTMlCUT.  iCht.2i 
|f  ,P(l)  ,r,E.  6.01  or i  Tn  500 
CALI.  ISA  J(X  ,y  ,K.ktLA51 
1 F  ( K  .r,T.  NIJM)  03  TO  545 

9<3l  =  * 

3(3l  =  V 

CALI  LIMP  (P.0,2. 1 .O.n.XMlN.Dx.YMlN.DY.O.t 
4 to  TC  T  I Cut 

JC  -  JClIT  -  1 
CALI  S09TUC.JC.K.X.V1 
S'O  3(ll  *  OATAIICUT-1  .  ICIIT.ll 
0(2,  =  OAT  4(1  CUT  •  lCHT.ll 
0(1,  =  OATS  (  TCUT-1  .  ICHT.21 
0(2,  =  O'TAITCUT.  |Cl|T,3) 

IF  (Pill  ,GE.  6.0|  50  TO  545 
CALI  ORA9(X,Y,J..IfLas) 

IP  / J  ,st.  N1IM)  no  TO  545 
0(9,  =  x 
3 (3,  =  V 

CAL.I  LInf<P.O«2.1.0.?.xmIN,I>x«Y8TN,DY.0.) 
530  IC  -  7  Cl  IT  -  1 
1C  ?  ,ICHT 

CALI  SORT  ( TC.JC..I.X.Y) 

545  riAT  ».  (  TClIT.jCIIT.  1  )  =  OATA  ( 1CUT«.|CUT,  1)  ♦  S 
50  TO  365 
2  ’■  1 0  9C  T  i  'PM 

e-io 


E.15  Subroutine  DRAW 


012820 

012830 

012840 

012850 

012860 

012870 

012880 

012890 

012900 

012910 

012920 

012930 

012940 

012950 

012960 

012970 

012980 

012990 

013000 

013010 

013020 

013030 

013040 

013050 

013060 

013070 

0130«0 

013090 

013100 

013110 

013120 

013130 

013140 

013150 

013160 

013170 

013180 

013190 

013200 


SiM-tOUTT'iE  DRAW  (X  .Y.x.xfLaGI 

COM  .-ON  /OLOCKl/TEsT  (“00.21  .T-5T1  (500.3)  .NUM/BL0CK2/P  (2)  .nIZ)  -JCUT 

5  T  7  T  =  A  # 

'•)1 5  =  0. 

t p  (P(2,  ,5E.  6.0,  5*  To  io 

50  ro  15 

0(2,  s  P(3|  -  S  1 7* 

Y  =  15.3 
S  =  .00031 

81  (U(  ’)-Q(ll) /f°M  )-P(2l  1 

I n  -  LEO'iAP  (Rl ) 

IP  (1°  .oF.  01  50  TO 
Cl  =  0(1,  ♦  «=>1«  C 1 ) 

0,3  i’O  Is’.MUP 

OX  -  TEST ( T • 1 1 -TFpT ( t-1 . 1 ) 

i)Y  -  TEST ( T  »2>*tpctit-I  .2) 

05  -  5356PT ( OX *OX .OvenY 1 

52  -  (TE5T  f  1-1 .3)_TP5T  ( t  .211  /ITE5T  ( I  .  1 1-TE5T  ( 1-1 »  1) ) 

IT  s  LEOUAR (R2> 

IP  (IT  .ME.  0)  00  TO  35 
C 3  T  TEST ( I .?>  ‘  °24TF5T 1 1  *  1 > 

IF  (1°  ."F.  01  P.0  TO  43 
xx  =  (C3-C1 1 / (H2-91 1 
IF  (LEOUtPIXX)  .X'P.  31  50.10  9H 
YY  T  Cl— M*XX 

JF  ( (test (1-1 . l)-oS  .LE.XX1  .AND.  (XX, LE.  11ST  < I . 1 ) *05) )  00  TO  30 
[F  ( (TEST ( T • 1 >  — 1  IS  . I f . X X I  .AMU,  (XX. LE.  TEST (1-1. 1 ) TOSl )  oO  TO  30 
50  TO  93 

jr  ((O(i;_os  .LF.xXI  .AmQ.  (XX. LF.  P(2)*US>)  GO  TO  45 
IF  ,(D(p,-nS  .LF.xXi  .Anoi  (XX, LF.  P  ( 1 ) *DS1 )  GO  TO  45 
50  tO  9(1 

TF  (19  , MF .  (1)  50  TO  03 
XX  =•  TEST  (Tell 
YY  =  Cl-9(»xx 

TP  ( (TEST( I-l i2>-nS  .LE .YY I  .AND.  (YY.LE.  TEST ( 1 .2) »DS) )  GO  TO  30 
TP  ( (TEST  ( I  ,21-05  ,t.F. YY)  •  AND,  (YY.LF.  TEST  ( I-l  .2)  »DSI  1  GO  TO  30 
50  3-0  90 

xx  ~  p n ; 

YY  -  r2-4?«xx 


S- 

■'•’l 

1 

If  f(0(ll-ns  .LF.yYI  .AMD.  (YY.LF,.  OU  IU  6-. 

IF  /<Q(?|-nS  .LE.vY)  .AMO-  (YY.LE.  0(1)»DSM  60  TO  25 
60  TO  Oo 

45  OX  =  0(1 l-XX 
OY  =  0(1 >-YY 
0  =  S0RT(DX»0X»0Y*DY1 
IF  (0  .LT.  OIS)  60  to  90 
015  *  0 

153  FORMAT  OH  .F10.31 
X=Xx 
Y=YY 


013220 

013230 

013240 

013250 

013260 

013270 

013260 

013250 

013300 

013310 

013320 

013330 

013340 

013350 

013360 

013370 

013360 

013350 

013400 

013410 

013420 


9o  CONTINUE 

IF  (Y  -Fa.  15.01  60  T(1  110 
152  FORMAT  (1H  «110.1x.’Ft0.3> 
KFLaG  =  I 

16 1  FORMAT  ( 4H  150*’X.I10) 

RETURN 

110  K  =  NIIM  .  1 

171  FnR'-tAT  MSH  ERROR  AT  |CI1T  =  <I2) 
RFTiiRN 

END 


E.16  Subroutine  SORT 


013430 

013440 

013450 

013460 

0134/0 

013480 

013450 

013500 

013510 

013520 

013530 

013540 

013550 

013560 

013570 

013580 

013550 

013600 

013610 

0 13620 

013630 

013640 

013650 

013660 

013670 

013680 

013650 

013700 

013710 

013720 

013730 

013740 


RlIRnOUTIWF  SORTdr.  IC.K.X.Y) 

COMMON  OATA(  103.1  fi3.’I  2m.OCKl/T£STISO<|i2)*TESTK500«2)  ,N||M 

COMmON/RLOCK3/IMHm«  iMIIM.XMlN.YMIM.DX.pYiSWl.IT6 
00  10  1=1. NUM 

IF  ifEST(I.l)  .ME.  OATAdV.Jr.lM  60  tO  10 
IF  (TEST  (1.2)  .ME.  OATAdC.JC.2M  60  TO  10 


60  to  2J 
Id  CONTINUE 

41 1  FORhAT  ( 4H  430.8X.4H8  = 
60  TO  95 

26  IF  (J  .LT.  K)  GO  TO  TO 
IF  (J  .Eo.  K)  GO  TO  99 
KK  .=  I 
Jl  =  K 
60  tO  40 
30  KK  =  K 

JJ  =  J  ♦  1 
40  II  =  0 

oo  =o  i=kk.num 
ii  =H  *  1 

TF6Tldl.11  =  TFST(T.l) 
50  TFStI (11.21  =  TEST (1.21 
TFST(IJ.l)  1  * 

TEST  (  IJ.’I  *  Y 

on  60  1=1.11 
1.1  =■  1J  ‘  1 

TFST(  IJ.l)  =  TESTl ( T . 1 1 
60  TFSt( JJ.21  =  TEST  1 ( I .2) 
NUM  =  JJ 
99  RFTiiRN 


13.1101 


E.17  Subroutine  PARFIT 


1 

SII80OIJTINB  PARFrT  (Yt  .Y2.Y3.YFl.YF2) 

0)3750 

c 

THIS  SUPROUTTNE  FIT'  A  papAROLA  TO  THREE  DATA  POINTS  Yl.YZ.Yo. 

TAKEN 

013760 

c 

AT  EOUAL  INTERVALS  AmO  cOMPUItS  POINTS  YF1.YF2.  ON  THE  FITTfU 

PARABOL 

013770 

c 

«  AT  ThE  MIDDLE  OF  ThE  INTFRVALS 

013780 

5 

c 

013790 

A=(y1«Y1-2.»Y2) /8. 

013800 

8=(y3-Y1 1 /4. 

013810 

C=Y7 

013820 

YFl=A-B.r 

013830 

10 

YF2=A»B*C 

013840 

" 

RETURN 

013850 

END 

013360 

E.18  Subroutine  CONTOR 


1 


5 


10 


15 


Z0 


ZS 


30 


35 


<•0 


45 


SURoOUTlNE  CONTnR  (M.NrMLEVS,HLEVS.RLANK»XLEN.YLEN»XP,YR> 

C 

C  0R4i.t  RENPLOT  CONTOURS  From  RECTANGULAR  BRIL)  INPUT 
C 

c  parameters 

c 

C  7 

C  M 

C  N 

C  XT 

C  YT 

C  NLEv/S 

C  HLE'/S 

C  RL»mK 

C  XLEm 

C  YLEm 

c 

C  7(I.Jt  ASSUMED  TO  BE  IN  ASSENDING  ORDER  BY  X  AND  Y 

C  TE  Zli.O  :  7IXHIN.YMIN) 

C  Z<M.N>  =  Z(XMAX.YMAX) 

C 

C 

C  POOnRAM  wTLL  plot  AMY  NIlMBtR  UF  CONTOURS 

C  I  TNES  A«F  LARFLfD  BY  CHARACTERS  0  -  1Z 

C  CHARACTFPS  AKt  RtPEATED  AS  NECESSARY 

C 

C  USES  SUBROUTINES  nEtROR  AND  FOUR 

C 

OTMrNSION  HLEVS(l) 

COMMON  7I103«103) . XT ( 1 03riO3> » YT ( 103» 1 031 
OImcNSIOm  T ( 150 > 

DIMENSION  SX(3) .Sy(3) .IC(A> 

, DIMENSION  10(161 . TP ( 1 6) 

DATA  Until  *1*1. 16.1 1/-1.-1.-Z.-1.-1. -Z*-l.-l. -1.0. O.O.O.O.Ot-l/ 
data  (IP (11.1  =  1*16.1)  7-1. -»*-l»0«0»0.1,0»0»l. 0.0.0. -I. -1.-1/ 

C 

K=7S 

XMIm=YMIN=0E0 

IFLaG=1 

Y5YmB=Yp-.Z 

XPLT=XLEM»XP 

JLImE=8 

c 

CALI  PLOT  (O.O.O.n.3) 

XSI7E=Flo*T(N-1) /xLFM 
YSl7E=F|_nAT(M-ll/YLFM 
U0=m«N 
C 

C  find  Z.rAXf  7MIN 


THF  r.IWFH  FUNCTION 
NU'-tHFR  OF  ROBS  in  Z  ARRAY 

number  of  cols  in  z  array 

temporary  array  SIZE=(M»N> 

temporary  array  SIZE*(M*N) 

NUMBER  OF  CONTOURS 

CONTOUR  values 

MSNG  OATA  coot 

LENGTH  of  X-AXIS  IN  INCHFS 

length  of  y-axis  in  inchfs 


013870 

0I38R0 

013890 

013900 

013910 

0139Z0 

013930 

013940 

013950 

013960 

013970 

013980 

013990 

014000 

014010 

014020 

014030 

014040 

014050 

014060 

014070 

014080 

014090 

014100 

014110 

014120 

014130 

014140 

014150 

014160 

014170 

014180 

014190 

014200 

014210 

014220 

014230 

014240 

014250 

014260 

014270 

014280 

014290 

014300 

014310 

014320 

014330 

014340 

014350 


0 14360 
014370 
014380 
014340 
U 14400 
014410 
014420 
014430 
014440 
014450 
014460 
014470 
U14480 
014440 
014500 
014510 
014520 
014530 
014540 
014550 
014560 
014570 
0145RO 
014540 
014600 
014610 
014620 
014630 
014640 
014650 
014660 
014670 
0 14680 
014640 
014700 
014710 
014720 
014730 
614740 
014750 
014760 
014770 
014780 
014740 
014800 
0 1 4810 
014820 
014830 
014840 
014850 
014860 
014870 
014880 
014840 
014900 
014910 
014920 
014930 
014940 
014950 
014960 
014970 
014980 
014990 
015000 
0 150 10 
015020 
015030 
015040 
015050 
015060 
015070 
015080 
015090 
015100 
015110 
015120 
015130 
015140 
015150 


T44v=n 

03  ’ 3  1=1 .M 

•33  ’  2  J=).M 

IF  (ZU.  31  .EO.H|_AmK1  60  30  1? 

I  >A  a  •<  =  l  M  ft  v  ♦  ] 

/iMAX.r^T.U  r,n  Tn  \\ 

7MA/s7(f  .J) 

7m|  »i*7  { I « J) 

no  1? 

TF  (ZU.  ll.6T.ZM4*)  78AX  =  Z(I.J) 

1  =  (ZU.  II  .LT.Z'<IM>  7mim=Z(!.J) 

OOW-IMUF 
COM*  I  Ml  IF 

opjmT  130.  7MIN.7MAX.NLEVS.  (HLEvSUI  .l=l»NLEVS) 


II,E'iS=0 
IL£mS=Ilf\/5*1 
Ll.l  iE  =  ILFV5-1 

IF  (ILEYS.GT.NLEVf)  66  TO  999 
H=Hi  EOS  Hi  EVS) 

BDI-iT  230.  H 

Tno.€=o 

TF  ( (H.6F.7MIN)  .4\|0.  (H.LE.ZM44)  )  GO  To  101 
PPIhT  730 
60  TO  99 


C  ppEoaRf  THF  XT-TAfiLE 


101  00  1 02  1=1.8 

no  >02  7=1 .N 

XT  ( . .  I)=1|D 

IE  lI.EO.M)  60  TO  139 
IF  (ZU  .J)  .EO.Rl.A8Kl  60  TO  102 
IF  (ZII.l  .J) .EO.Bf  4mk)  60  TO  102 
IF  (<<7U.J)-H)<>(7<!*1.J)-HM.GE.0.0>  60  TO  102 
XT(r.J)=-4RSCFLOAT(I-l)*(«H-7lI.,)M/(7<I*l»J  1-ZU.JHll 
103  CONtINUF 

c 

C  PPEpaRf  the  YT-TARLF 


00  '03  1=1.8 
03  '03  7=1. N 
vr ( r .  ))=i|0 

IF  (J.EO.N)  60  TO  1(13 

IF  (ZII.  I  I.EO.R)  Amm-1  60  TO  103 

IF  (Z(I.  1*1)  .£0.81  AMKI  60  TO  103 

IF  (MZ(T.J>-H)«(7<t,7*1>-H)).GE.0.0>  GO  TO  103 

YT(T.J1=-A8S(EL0AT(  1-1 1 ♦ ( 1H-71 1 *7) 1/17(1  . J* t > -Z ( I • J> >  )  ) 

CON-UNUF 


on  701  n=l*4 
IC  t  T i >  =0 
DO  707  1=1. M 
130  707  3=1. N 

IF  i2ll.ll  .NE.H)  60  TO  ?0T 

COIImT  EntOANCES  AwD  FX1TS  IN  5URP0UNDIN6  blocks 


no  702  17=1.16 
11=101121*1 

IF  (II.LT.1.0R.T1.GT.8)  GO  TO  202 
I7=1P(I2)*J 

IF  (JJ.LT.1.0R.7J.GT.M1  GO  TO  202 
1 1  =  f  X  7—1 1 74*1 

IF1(XT(II.JJ).NF.iiD1  .OP.  lYT«II.JJ).NE.UD))IC(Il)«lCUll*i 

CONTINUE 

IHOl  0=0 

DO  206  17=1,4 

10(121=830(16(171.21 

IF  ( IC(?7> .EO.Ol  60  TO  206 

IF  (IHOL3.ME.0)  60  TO  7o3 

IMOl  0=12 

GO  TO  206 

IF  (I2-IMOL0.E0.il  60  Tn  204 
IF  (IH0Ln.E0.l.ANo.T7,E0.<*f  60  TO  205 
60  TO  301 

IF  (I2*ImOLD.E0.5i  60  TO  205 


015160 

015170 

Q151B0 

015140 

015200 

015210 

015220 

015230 

015240 

015250 

015260 

015270 

0152B0 

015240 

015300 

015310 

015320 

015330 

015340 

015350 

015360 

015370 

015380 

015340 

015400 

0154 10 

015420 

015430 

015440 

015450 

0 15460 

015470 

015480 

015440 

015500 

015510 

015520 

015530 

015540 

015550 

015S60 

015570 

015580 

015540 

015600 

015610 

0 15620 

0 15630 

0 15640 

015650 

015660 

015670 

0 15680 

015690 

0157OO 

015710 

015720 

015730 

015740 

015750 

015760 

015770 

015780 

015790 

015800 

015810 

015820 

015830 

015840 

015850 

015860 

015870 

015880 

015890 

015900 

015910 

015920 

015930 

01 5940 

015950 


13=1*12-7 

XT(t3;ji=-A8S(ElO4T(T3-1)*.001> 
On  to  ?o? 

n=T-i 

|4=  |*4-|? 

YT( t3. J4i =-AHS < float  ( J4)  *.U01 ) 

no  to  ?o  y 

CONTINUE 

CONTINUE 


COMnlLE  5  LIST 


30?  CONTINUE 

OO  to?  1  =  1, M 

no  tot  ,i=i. n 

KTY  =  i 

IE  (XTU  ..))  .NE.IIO)  00  TO  304 
YEYt2 

IE  ,YT(  I  ..I)  .NE.UO)  oo  TO  304 
303  CONTINUE 


IE  (IQONE.EO.0I  POINT  400 

no  to  49 


1*=' 

IF  (NEIRoPIKEY.T. 
IX  =  ? 

T( l >  =  *F 
T(?I=YF 
IL=T 
II.  =  I 
KL-yEY 
LR=I 

80  TO  (306.307) . 
*e  =  »T<I.  II 

YE  =  l-l 
Of)  TO  401 
*E=T-1 
YF  =  YT  (  I  .  I) 


XBsyF 
Y8=vF 
ISA\)E  =  I 
ISAuE=J 
<SAwE=KEy 

IE  ( (IX-K*?) .LT.Oi  on  TO  404 

147  =  1 

on  TO  801 

CONTINUE 

T ( 1 1 =T ( T  v-| ) 

TI2)*T(TY) 

I  X  —  7 
I  X  =  T  X*2 

T(I»-I)=AHS(AS) 

T(ix)=aps(ysi 

IE  (147. Ft). 1)  GO  TO  405 
IF  (tX.LT. 6)  GO  To  406 
IF  (KSAVF.FO.il  XTf  ISAVE,3SAVt)=ilD 
IF  (KSAVF.EQ.2I  YT ITS AVr ,  JSAVt)  *110 
IF  (IX.En.21  GO  TO  501 
GO  TO  (407.409),  kEY 


C  THE  POINT  IS  ON  AN  HORIZONTAL  LINK 


THE  POINT  IS  ON  A  VFotICAL  LINK 


h‘.^^-«?>j^^<i^‘wHia»fcr  sWKWttftacniTB-Mw  ■e-ww+’W*^'  *• 


210 


215 


220 


225 


23j 


235 


240 


245 


250 


255 


260 


265 


40° 


41*1 

c 

c 

c 

501 


50? 


501 


504 


270 


275 


28° 


265 


506 


504 


507 


50o 

50° 

51* 

511 

51? 

511 

514 

516 

516 


(6  (YTH  .J).GE.1.4>  60  TO  415 
YT(t..I»  =  iBS<YTO.  ill 
40  TO  501 
YT. (  T  *.1)  =1)0 

INTO  ROX  -  IS  THE°E  A  NAY  OUT 

«o=- 

1SA'(£=! 

)SAwE=J 

KSAnE=KEy 

no  TO  (4<'?«60ll.  kF.y 
CONt  INtJE 

IE  (LH.Efi.?)  GO  TO  445 
IE  (J.E0.N1  60  TO  741 
tE  (XT(i.j»1).eo.'iDi  no  to  5ij 

«H=^H« 1 
KS  =  ’ 

s«(i)=xt(I.J‘1) 

SV(1 )=J 

CONTINUE 

IE  (YTtT.  ll.EO.IIDl  40  TO  504 

KH=kH. 1 

KS=? 

6»t?)=l-l 

SVO)=YTIT.J> 

continue 

IE  (l.Eo.Ml  60  TO  54R 

IE  f  YT  (I  *  1 .  J)  .EO.itOl  GO  TO  50» 

KR=kH*  1 

1(6=1 

5X(?1=I 

SYO>=YT(t»l.J> 

GO  =0  5flo 

continue 

IE  (J.E0.1)  GO  TO  741 
IE  (XT(I..I-1).E0.I)DI  GO  TO  SOO 
kh=<-h»1 
KS  =  0 

5X(i»=XTtl.J-l> 

SY(1>=J-? 

CONTINUE 

IE  (YT  ( T  .3-1)  .EO.uOl  GO  TO  501 

KW=kH.1 

KS=5 

5X(?)=I-t 

GY  <  4) =YT ( T . J-l  1 

CONTINUE 

IF  (I.EO.M)  GO  TO  500 

IF  (YT(It1»J-1).E0.U0)  go  TO  508 

kh=*H*1 

KG=S 

SX(ll=I 

GY(T)=YT(I»l.J-n 

IE  (KH.Fn.O.OR.NH.EO.?)  GO  TO  701 
IE  (KH.Ne,  1 1  CAU.  FoilP  (Tt  1 X  .  5X  >  SY.KS.KEY) 
GO  TO  (516.51 0.51 1 .51 2.513»514)  *  KS 

KEY -1 

l_R=’ 
l=.J»  1 

GO  tO  51 G 
KFY*t2 
LH  =  ? 

GO  TO  516 
*ey  =  2 
1  =  1.1 
La  =  > 

GO  tO  516 
KFY  =  1 
LH=? 

GO  tO  515 
KEY  r2 
L«  =  ? 

GO  TO  516 
KEV=2 
1  =  1.1 
L«=’ 

KS=kS-3 
.1=3-1 
XS=SX(KSI 


015960 

015970 

015960 

015990 

016000 

016010 

016020 

016030 

016040 

016050 

016060 

016070 

016080 

016090 

016100 

016110 

016120 

016130 

016140 

016150 

016160 

016170 

016180 

016190 

016200 

016210 

016220 

016230 

016240 

016250 

016260 

016270 

616280 

016290 

016300 

016310 

016320 

016330 

016340 

016350 

016360 

016370 

016380 

016390 

016400 

016410 

016420 

016430 

016440 

016450 

016460 

016470 

016480 

016490 

016500 

016510 

016520 

016530 

016540 

016550 

016560 

016570 

016580 

016590 

016600 

016610 

016620 

016630 

016640 

616650 

016660 

016670 

016680 

016690 

016700 

016710 

016720 

016730 

016740 

016750 


2313 


■555! 


29G 

300 

3uS 

310 

315 

320 

323 

330 

335 

340 

345 

350 

355 

350 

345 


r  G  = 

Trt.  aG=? 

50  TO  4f)  ? 

C 

C 

601  CONTINUE 

IF  lL'>.F~,,2)  GO  TG  0  04 
IF  (I.F.n.Ml  GO  TO.  7M 
15  (XTCI.ll.FO.MDl  Gn  TO  bu? 

1 

KG=1 

G« ( > )  =XT ( 1 , J) 

5v ( .  i  =j- 1 

602  COnit  I  JUF 

IF  (J.Eo.Nl  GO  T0/6OT 
15  (XT  1 1  .  J*1 )  .EO.llOI  GO  TO  603 
I 

KG=2 

S« (»)sXT  f  T • J*l) 

SV  f  2 »  =, J 

602  CONTINUE 

15  (I.5T.M)  GO  TO  60? 

1 5  (YT(I*l«J).e;'.nDl  GO  TO  601 

Y5=2 
S  *  <  2  )  =  I 

5Y  t  2) =YT  f I ♦ 1 • J) 

GO  rO  607 
604  CONI’- INUF 

15  (l.Fn.U  GO  TO  7  ’  1 
1 5  fXT  (  I-J  ,  J)  .EO.llOI  GO  TO  flOb 
1 

KG  =  4 

G« ( ’ I =XT  < 1-1 • J) 

GY (  ’  )  =J-1 
60  G  CGMrt’JUF 

[5  (J.EO.M1  GO  TO  606 
15  (XT(T-1.J»1)  .En.llril  GO  TO  606 
kf=<-h*  1 

KG=- 

G2|2)=XT(I-l<J‘l  ) 

SY(?»=J 

606  CONI’- 1  •  'OF 

(5  (YT  <  T-l  •  J>  .EO.llOI  GO  TO  601 

1 

KG=o 

G» (21=1-2 
GY(2>=YTIT-1’J) 

602  CONTINUE 

15  (K6.F2.0.nW.KH.E'l.?l  GO  TO  701 
15  (KH.Mc.i)  C6U.  F'oiiP  (T«  IX  .bX’SY.KS.KEY) 
GO  70  (lS’,«»6f|4.  -18*61  1  *612*613)  •  KG 
60a  K  5  Y  =  1 

L’3  —  ? 

GO  tO  6]g 
60“  <FY=1 

1.2=’ 
l  =  J.  1 

GO  ’0  615 

6)2  K5y-2 

1  =  1.1 
L“=’ 

GO  TO  61'G 

611  K5Y=l 
(_“  =  = 

GO  ’O  61  i 

612  K5Y=1 
L“=’ 

l=J.l 

GO  tO  614 

613  KFY-.2 
1.4=2 

614  l  =  ul 
kS=tS-3 

6  |  g  XG  =  GX 1KS1 

yg==V(ks) 

IFMG=? 

GO  TO  4(12 

c 

c  NO  U0U5  BOlMTG 


016770 

016780 

016790 

016800 

016810 

616820 

616830 

016840 

016850 

016860 

016870 

016880 

016890 

016900 

016910 

016920 

016930 

616940 

016950 

016960 

016970 

016980 

016990 

017000 

017010 

017020 

617030 

017040 

017050 

017060 

017070 

017080 

017090 

017100 

017110 

017120 

017130 

017140 

017150 

017160 

017170 

317180 

017190 

617200 

617210 

017220 

017230 

017240 

017250 

017260 

017270 

017280 

017290 

017300 

017310 

017320 

017330 

017340 

017350 

017360 

617370 

017380 

017390 

017400 

617410 

017420 

017430 

017440 

017450 

017460 

017470 

017480 

017490 

017500 

017510 

017520 

0X7530 

617540 

617550 


237 


017560 

017570 

0 1 7580 

0 1 7590 

017600 

017610 

017620 

017630 

017640 

017650 

017660 

017670 

017660 

017690 

017700 

017710 

017720 

017730 

017740 

017750 

017760 

017770 

017760 

017790 

017800 

017810 

017820 

017830 

017840 

017850 

017860 

017870 

017880 

017890 

017900 

017910 

017920 

017930 

017940 

017950 

017960 

017970 

017980 

017990 

018000 

018010 

018020 

018030 

018040 

016050 

018060 

018070 

018080 


GO  rO  (702.7031.  mEV 
XT(r.  11=013 
60  T0  704 
YT(T«.ii=tin 

60  TO  <142.7041  .  iFlaG 
T47r2 


LLt'iE=Mon<LLTNE,  1  31 
ir  (IX.mf.21  GO  To  901 
T r  (L8.Fo.2l  GO  To  802 
L6  =  "> 

60  tO  501 

ir(wEY  .FO.  II  XT  ( I  «  II  =llD 
IFKEY  .FO.  21  FT  ft.  II  =1  ID 
60  TO  9(14 


IoomE=IOowe*I 

CALi  LIMC  (T  (21  .T  1 1 1  .  Ix/2.2.,lHNF«LLIME»XMIN«XSIZE.YMlNtYSIZE 

If  (II30Nr.6T.il  6n  TO  902 

Y8Yi/8=Y5Ym0-O.2 

IF  ( YSYmo  .Lt.  O.t  110.120 

YSY’<B  =  Yo-.2 

XDLt=XFLT*2. 

CALL  SYMROL  (XPI.T  .YSYMn, O.OR.LLINE.O. 0.-1 1 
CALI  5  YM60L  (  3H0I.0 , 1MOL0.  .09.  IHs.  0  .  «  1 1 
EMCoOE  <10,1 . ISYm)  H 

CALL  SYMROL <3H0Ln.3‘i0L0,. 09.  TbYM.0.0.10) 

ROImT  5a0.  LLImE 

IF ( (47  .ro.  1)  GO  TO  403 

IFLAG=1 

!  =  Ii 

I=J| 

KFY=KL 
60  TO  3(11 


FORMAT (610.31 

FORMAT  f«!BEGIN  Contour  PLOT* ,2Gl 3.5. 15/ (5*. 1031 3.5) ) 
FORMAT  <*  CONTOUR*. 61 3.5) 

FORMAT  ( 1  OX ,*OUTStOf  grid*) 

format  (|OX,»NO  OaTA*I 

format  <iOX.»PLOTtEO  CHARACTER** 13) 


E.1B  Subroutine  NEIBOR 


oiaoro 
018100 
018110 
018120 
018130 
018140 
018180 
018160 
018170 
018180 
018100 
018200 
018210 
018220 
618230 
018240 
018250 
018260 
018270 
018280 
018200 
018300 
018310 
01 8320 
018330 
018340 
618350 


FUNCTION  MFIUOR  UrA.TA.  lA.KB.lB.  |B> 


NcjoO«=-t  IF  NUT  NFTGHROHS 
nfidOit  *  i  IF  fiFrnuianoF 


DIMENSION  K1 114* ,k2<|4» ,IT (14) .JT<14) 
DATA  Kl/|«l*l.l.|.l.».2.2.2«?.2.).2/ 

DATA  K2/I.I.2»2.?.2.1.1.1*1.2»2.1.2/ 

OATft  IT/n.O.O.O.I.l.n.O.-l.-l.  I. -1.0.0/ 
OAT  A  JT/-1.1.0.-1. -1.0. l.O. l.O. A. 0.0.0/ 
IO  =  TB-lA 
JO  =  ,)8-  |A 
00  °0  1*1*14 
IF  , KA-Ki (III  83,50.00 
IF  (KB-KO(I)I  83.60.00 
IF  rlD-rlTlIl)  80.70.00 
IF  (JO-JT(I)l  flO.oO.OO 
CONTINUE 
NFIROR  =  -1 
00  *0  100 
NEIBOR  =  I, 

RETURN 

continue 

RFTiiRN 

fmo 


E.20  Subroutine  FOUR 


018360 
618370 
018380 
018380 
618400 
018410 
018420 
018430 
6 1 8440 
018450 
018460 
018470 
018480 
6 1 8480 
018500 
618510 
018520 
018530 
018540 
018550 
018560 


SUBROUTINE  FOUR (T.lX.SX.SY.KS. KEY) 
OTMrNSION  T(150) .5X(3) .SYI3) 

TF(TX.GE.4)  GO  TO  400 

KS=7 

RETURN 

408  SLOOT=(T( IX) -TUX-2)  )/IT<lX-|  )-T  ( IX-3)  ) 
00  515  11*1.3 
xs*a8s(5»(hii 
VS*a8S15Y(II)1 

SLO»E*miX)-YS)/(TUX-l)-XS) 
IFIfLOPT.SLOPE  .Lt.  0.0)  00  TO  515 
IF (yEy.Fo.1  .ANn.  Il.EO.l)  GO  TO  515 
IF  1yEY.FR. 2  .AND.  I1.E0.3)  GO  TO  515 
IF (kS.LF.3)  GO  TO  l 
K5*T 1*3 
RETURN 
1  K8*l 1 
RETURN 

515  CONTINUE 
RFThRN 
ENO 


'.uuvnfiWr- 


■ 


E.21  FwKtion  SYMBL 


oi87so 
018760 
018770 
018780 
0187Q0 
018800 
018810 
0 188?Q 


FitMrTTOM  SYMRL(Tfy) 
T F  (MvGFt X  f TIM* ! • 1 ) 
-MC>0F.UV*1*8YM^|;) 
pc-fnfl.g 
8ym-'LsTI  '■< 

P<H,tRN 

F()Pm4T(G1  ‘1.3) 

EmO 


FQ.  bbHv  GOTO  IGO 


.  Vi;?:' . .  .  •TV,.:;  -.1^IJ.-.  :-,!.::^T1 


PROGRAM  T30ITAPE3, OUTPUT! 


REVISION' 


C  PURPOSE— OISPLAT  VALUES  OF  Fj  AND  F2  FROM  TAPES  ITEHPS  OUTPUT) 
C  USING  LINEAR  INTERPOLATION  BETWEEN  TINES. 


C  SUBROUTINE' 


RTAPE3 


INTEGER  OATAINUOO.31 


EQUIVALENCE  III, DATAIN) 


DATA  IT3/3/ 


REMIND  IT3 


REAOIIT3)  DATAIN 


TLAST=TNEXT=0 


LT*.1*TAUNX 


WRITE  1 , NO , NMX.OTAUa.TAUMX 


CALL  RTAPE3 IT • 
WRITE  E.T 


WRITE  3, 1 F 1 1 J I i J= 1 ,91,10) 


WRITE  3, <FEIJ» , J*l,81,10l 
100  CONTINUE 


♦  •  VALUES  OF  FI  AND  F2  AT  1,11 


FORMAT!/*  T AU~*E1 3 ■ 6 ) 


7. mWmwwWW  ~ 


MISSION 

of 

Rome  Air  Development  Center 


RADC  plans  and  conducts  research,  exploratory  and  advanced 
development  programs  in  command,  control,  and  contminication: 
(C3)  activities,  and  in  the  C3  areas  of  information  science! 
and  intelligence.  The  principal  technical  mission  areas 
are  communications ,  electromagnetic  guidance  and  control, 
surveillance  of  ground  and  aerospace  objects,  intelligence 
data  collection  and  handling,  information  system  technology 
ionospheric  propagation,  solid  state  sciences,  microvave 
physics  and  electronic  reliability,  maintainability  and 
compatibility . 
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